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VOORWOORD 


Voordat u dit boek begint te lezen, kunt u het beste even uw 
agenda raadplegen. De komende tijd zult u alleen maar 
bezig zijn met de spelletjes en demonstratieprogrammea's uit 
Het MSX computer-spelen boek. 


Tim Hartnell heeft een variëteit aan spelen verzameld om u 
tegen te zeggen. Voor liefhebbers van het bekende vlieg- en 
schietwerk zijn er een aantal aantrekkelijke arcade games 
opgenomen, waarbij de nodige zorg is besteed aan het 
visuele aspect. Wie van een beetje denkwerk houdt, kan 
zijn hart ophalen aan enkele spannende adventures of aan 
hersenbrekers als PUNTIGE WOORDEN. Onder de 
auteurs van de spelletjes zijn oude bekenden als lan Watt 
en Alastair Gourlay. 


Welk spel u ook het liefste speelt, in Het MSX computer- 
spelen boek vindt u altijd wel iets van uw gading. Dit boek 
staat dan ook garant voor menig genoeglijk uurtje. En zeer 
waarschijnlijk bent u na bestudering van de listings in staat 
programma's naar wens te veranderen en zelf eenvoudige 
spelletjes te schrijven. 


De programma's zijn oorspronkelijk geschreven voor de ZX- 
Spectrum. Na de bewerking voor de BBC is er nu dan ook 
een versie voor de MSX. Aan de bestaande programma's 
zijn enige woord- en letterspelen toegevoegd. 


Genoeg gezegd, het is de hoogste tijd om met het eerste 
spel aan de slag te gaan! 


SQUASH 


Nu kunt u eindelijk trainen zonder binnen de kortste keren 
in het zweet te baden. U zult ontdekken dat dit programma 
zeer snel is, waardoor het een grote uitdaging vormt. U kunt 
uw racket heen en weer bewegen met behulp van de 
cursorbesturingstoetsen. De computer serveert 5 ballen. 
Links onderaan kunt u het aantal reeds geserveerde ballen 
zien en daarnaast het aantal malen dat u elke bal raak hebt 
geslagen. 


Vindt u het spel te langzaam of te snel, dan kunt u in regel 
270 de wachtlus langer of korter maken en zo de snelheid 
van de bal regelen. Regel 300 genereert het geluid dat u 
hoort als de bal uit is. 


10 
20 
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REM SQUASH 
KEY OFF:;CLS 


el 

=4 TO 20 

LOCATE Z,4:PRINT CHR$(224) ; 
NEXT Z 

FOR Z=4 TO 14 

LOCATE 4,Z:PRINT CHR$(224) :LOCATE 20,2:PRINT CHR$(224) 
NEXT Z 

LOCATE C,15:PRINT'' ' 
A$=INKEY$ 

D=STICK(0) 

IF D=7 THEN C=C-1 

IF D=3 THEN C=C+1 

IF C<4 OR C>20 THEN GOTO 260 
LOCATE C,15:PRINT CHR$(225) 

IF E=15 AND CF THEN GOTO 350 
IF E=15 THEN PLAY"O4E" 

LOCATE F,E:PRINT" " 

FOR Z=1 TO 25:NEXT Z 

E=E+A 

IF E=5 OR E=15 THEN A=-A 
F=F+B 

IF F=5 OR F=19 THEN B=-B 
LOCATE F,E:PRINT CHR$(226) 

IF E=15 THEN B=SCN(B*(INT(RND(-TIME) *RND(—TIME) )+1) ): 
G=G+1 

GOTO 170 

P=P+1 

LOCATE 1,16:PRINT P;CHR$(225) ;G-1 
FOR Z=1 TO 2000:NEXT Z 

CLS 

IF P<5 THEN GOIO 50 

END 

FOR N=224 TO 226 

FOR M=0 TO 7 


430 READ A 

440 VPOKE N*8+M,A 

450 NEXT M 

460 NEXT N 

470 RETURN 

480 REM KARAKTERS 224,225,226 

490 DATA 255,255,255,255,255,255,255,255 
500 DATA 0, 0, 0, 0,255,255,255,255 
510 DATA 16, 56,124,254,124, 56,1 6, 0 
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CHEMIN DE FER 


De MSX-versie van CHEMIN DE FER valt op door de mooie 
grafische weergave van dit dobbelspel. Pas op, want voor u 
het weet bent u eraan verslaafd. Het doel van het spel is om 
zo dicht mogelijk het getal negen te benaderen, of een getal 
dat eindigt op negen. De speler die dat het beste kan, wint 
het spel. 


De bankier (zwaar vermomd als MSX computer) begint en 
werpt vijf dobbelstenen. Een totaal van negen ogen noemt 
men LA GRANDE en een totaal van acht LA PETITE. 
Zeven is GEWOON. 


Is geen van deze getallen gegooid, dan moeten de vijven en 
de tweeën over worden gegooid. Het resultaat van de 
tweede worp wordt opgeteld bij het aantal dat was blijven 
liggen. Tweeën en vijven in de tweede worp tellen niet mee. 


Als resultaat geldt het laatste cijfer van elk getal (een totaal 
van 12 telt dus als 2 en 29 is gelijk aan 9). Remises tellen 
niet mee. Er worden negen rondes gespeeld. Wie er meer 
dan vier wint, heeft uiteraard het spel gewonnen. 


Het spel is heel eenvouding omdat de computer het meeste 
werk doet. Als het spel is afgelopen, wacht de computer op 
een toetsdruk. De definiëring van de dobbelstenen vindt 
plaats in de subroutine vanaf regel 660. 
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REM CHEMIN DE FER 
KEY OFF:CLS 

COLOR 1,15 

SCREEN 1 

GOSUB 660 

DIM D$(6) 

FOR A=1 TO 6 

V=A+223 

D$ (A) =CHR$(V) 

NEXT A 

B1=0 

P1=0 

LOCATE 4,0: PRINT"'BANKIER' 

GOSUB 340 

PRINT"'EINDRESULTAAT"';D 
A$=INKEY$:IF A$=""' THEN 160 

J=D 

PRINT'"'SPELER"' 

GOSUB 340 

PRINT''EINDRESULTAAT";D 
A$=INKEY$:IF A$=""! THEN 210 
PRINT''BANKIER="';J; ""SPELER="";D;" " 
IF J=D THEN PRINT'"REMISE':GOTO 280 
IF J>D THEN PRINI''BANKIER WINT'':B1=B1+1 
IF J<D THEN PRINT"'SPELER WINT'':P1=P1+1 
CLS: PRINT 

PRINT''TOTAAL GEWONNEN" 
PRINT"'BANKIER SP! à 

PRINT SIR$(B1) ;" Tt 

IF B1+P1=9 THEN STOP 

A$=INKEY$:IF A$=""" THEN 310 


FOR G=1 TO 5 
P=RND(-TIME) 
A=INT(RND(1)*6+1) 

PRINT TAB(G)'" ";D$(A) 

IF A=2 OR A=5 THEN C=C+1:A=0 
D=D4A 

FOR Z=1 TO 1000:NEXT Z 

NEXT G 
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PRINT 
IF D>9 THEN D=D-10 
IF D>9 THEN D=D-10 


PRINI"'TOTAAL VAN DE EERSTE WORP"';D 


IF D=9 THEN PRINT"'LA GRANDE" 
IF D=8 THEN PRINT"'LA PETITE' 
IF D=7 THEN PRINT'"'GEWOON'' 
FOR Z=1 TO 1000:NEXT Z 

IF C=0 OR D=7 OR D=8 OR D=9 


EN GOTO 640 


PRINT"U MOET'';C;''OPN. GOOIEN! 


PRINT 

FOR A=1 TO C 
E=INT(RND(-TIME) *6+1 ) 
PRINT: PRINT D$(E) 

IF E=2 OR E=5 THEN E=0 
D=D+E 

FOR Z=1 TO 1000:NEXT Z 
NEXT A 

PRINT 

IF D>9 THEN D=D-10 

IF D>9 THEN D=D-10 
RETURN 

FOR N=224 TO 229 

FOR M=0 TO 7 

READ A$ 

VPOKE N*84+M,VAL("&H"'+A$) 
NEXT M 

NEXT N 

RETURN 

REM DATA VOOR DOBBELSTENEN 
DATA EF,FF,FF,E7,E7,FF,EF,EF 


DATA FE,FF,FF,99,99,FF,FF,FF 
DATA FF,OF,9F,E7,E7,F9,FO,FF 
DATA FF,FF,99,99,FF,99,99,FF 
DATA FF,99,99,E7,E7,99,99,FF 
DATA 99,99,FF,99,99,FF,99,99 


PAARDENRENNEN 


Na de instructie RUN verschijnt op het scherm een 
renbaan, waarop zes paarden klaar staan voor de start. Na 
het startsein probeert elk paard zo snel mogelijk de finish te 
bereiken. Regel 50 gebruikt een van de interne timers om 
willekeurige getallen te genereren. Dit programma staat in 
SCREEN 1, zodat u gebruik kunt maken van karakters die u 
zelf hebt gedefinieerd. 


Als u het spel een aantal malen hebt gespeeld, kunt u het 
programma zo veranderen dat het mogelijk wordt om te 
wedden op de uitslag. 
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KEY OFF:CLS 
SCREEN 1 
GOSUB 620 
X=RND( TIME) 
DIM A(6),Q(6) 
FOR A=1 TO 6 
AA) =1:Q(A)=1 
NEXT A 

K=0 

g=1 

CLS 

FOR Z=1 TO 30 


LOCATE Z,14:PRIND'"'—"': LOCATE 2,1: PRINT''-"! 
NEXT Z 

FOR Z=2 TO 12 STEP 2 
LOCATE 27,2+1:PRINT Z/2 
LOCATE 2,2: PRINT"'|'"' 
NEXT Z 

FOR Z=3 TO 13 STEP 2 
FOR B=1 TO 6 

LOCATE Q(B),Z:PRINT" " 
NEXT B 

NEXT Z 

LOCATE 1,3 

FOR B=1 TO 6 

A(B)=A(B) +RND(1)*3 

FOR C=1 TO ABS(28-A(B)) 
PRINT" "'; 

NEXT C 

QB)=C1 

PRINT CHR$(224) 

PRINT 

IF A(B)>24 THEN K-1 
NEXT B 

IF K=1 THEN GOTO 380 


440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 


FOR D=1 TO (6-B) 

IF A(D+1)>A(D) THEN GOTO 500 
E=A(D) :G=Q(D) 

A(D)=A(D+1) :Q(D)=O(D+1 ) 
A(D+1)=E:Q(D+1 )=G 

Pel 

NEXT D 


IF F=0 THEN GOIO 530 

NEXT B 

FOR Z=6 TO 1 STEP-1 
PRINT''POSITIE''; 7-2; "PAARD NUMMER'';Q(Z) 
NEXT Z 

FOR Z=1 TO 2000:NEXT Z 

PRINT"WILT U NOG EEN RACE (J/N)" 
A$=INKEY$ 

IF A$=""N!"" OR A$='"n"" THEN END 


IF A$="J" OR A$="j"" THEN RUN ELSE GOTO 580 


END 

FOR N=224 TO 224 
FOR M=0 TO 7 

READ A$ 

VPOKE N*8+M,VAL(''&B''+A$) 
NEXT M 

NEXT N 

RETURN 

REM KARAKTER 224 
DATA 00011000 
DATA 01001000 
DATA 01101101 
DATA 11111111 
DATA 10111110 
DATA 00111110 
DATA 01000010 
DATA 10000001 
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MSX-MICROMIND 


Wie Mastermind (© Invicta Plastics) een leuk spel vindt, zal 
ook gecharmeerd zijn van deze vereenvoudigde versie met 
drie getallen. 


De computer genereert een willekeurig getal bestaande uit 
drie cijfers. Deze cijfers mogen niet aan elkaar gelijk zijn, 
bijvoorbeeld 147, 472 of 825. Daarna wordt u gevraagd om 
een getal van drie cijfers in te typen. Dat is uw eerste gok. 
Als u een juist cijfer op een juiste plaats hebt neergezet, 
krijgt u een rondje te zien. Raadt u een juist cijfer, maar het 
staat niet op de juiste plaats, dan verschijnt er een 
driehoekje op het scherm. Wanneer u geen enkel cijfer 
raadt, houdt de computer zich stil. 


U mag maximaal tien maal raden. Als u het dan nog niet 
heeft gevonden, geeft de computer de juiste oplossing. 
Raadt u het juiste getal, dan krijgt u het aantal pogingen dat 
u nodig had op het scherm te zien. 
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REM MSX-MICROMIND 


CLS 
KEY OFF 

DIM A(3),B(3) 

FOR Z=1 TO 3 

A(Z)=INT(RND(-TIME) *9) +1 

NEXT Z 

IF M(1)=A(2) OR A(1)=A(3) OR A(2)=A(3) THEN GOTO 50 


A=100*A(1)+10*A(2)+A(3) 
FOR C=1 TO 10 
INPUT''RAAD HET GETAL ';B 
B(1)=INT(B/100) 
B(2)=INT((B-100*B(1))/10) 
B(3)=INT(B-100*B(1)-10*B(2) ) 
IF A=B THEN GOTO 450 

D=A 

N=0 

W=0 

FOR E-1 TO 3 

IF (A(E)<>B(E)) THEN GOTO 230 
N=N+1 


A(E)=0 
T E 

FOR F=1 TO 3 

IF A(F)=0 THEN GOTO 300 

FOR E=1 TO 3 

IF (B(F)<>ME)) THEN GOTO 290 
W=W+1 

NEXT E 

NEXT F 

A(1)=INT(D/100) 
A(2)=INT((D-100*A(1))/10) 
A(3)=IND(D-100%A(1)-10*A(2) ) 
IF N=0 THEN GOTO 380 

FOR X=1 TO N 

PRINT CHR$(248) 

NEXT X 

IF W=0 THEN GOTO 420 

FOR X=1 TO W 

PRINT CHR$(216) 

NEXT X 

NEXT C 

PRINT: PRINI"HET JUISTE GETAL WAS:"';A 
END 

PRINT:PRINI'U HEBT HET IN'';C;"MAAL, GERADEN"'; 


REIS DOOR DE RUIMTE 


Ga mee met de bemanning van het ruimteschip OCKELS | 
voor een patrouille door de ruimte. Er bevinden zich circa 
20 buitenaardse wezens in uw sector en de opdracht luidt 
er zoveel mogelijk te vernietigen voordat uw beperkte 
energievoorraad uitgeput raakt. Als u een vreemd schip 
tegenkomt, is het spel ten einde. Voorzichtig gebruik van uw 
‘scanners’ draagt ertoe bij dat u zich als een geroutineerde 
astronaut door de ruimte kunt bewegen. 


U kunt te allen tijde bewegen, vuren of scannen door 
getallen in te typen als de computer u daarom vraagt. 
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10 REM RUIMTEREIS 

20 CLS:KEY OFF 

30 SCREEN 1 

40 FOR N=224 TO 226 

50 FOR M=0 TO 7 

60 READ A$ 

70 VPOKE N*8+M,VAL(''&B''+A$) 

80 NEXT M 

90 NEXT N 

100 DIM A(10,10),B(10,10) 

110 C=0 

120 FOR A=1 TO 20 

130 X=INT(RND(-TIME) *10+1 ) 

140 Y=INT(RND(-TIME) *10+1 ) 

150 A(X,Y)=1 

160 NEXT A 

170 B=5 

180 C=5 

190 A(B,C)=2 

200 B(B,‚C)=2 

210 AL=0 

220 zg="" 

230 GOSUB 400 

240 Z$=Q$ 

250 E=INT(1000+(RND( TIME) *2000+1 ) ) 

260 GOSUB 770 

270 GOSUB 560 

280 GOSUB 450 

290 GOSUB 560 

300 GOSUB 580 

310 PRINT'WAT IS UW BEVEL, SIR'': PRINT 

320 PRINTTAB(12)'1 — SCAN'':PRINTTAB(12)''2 — BEWEGING': 
PRINTTAB(12)''3 — VUUR'' 

330 A$=INKEY$ 

340 IF A$="1"" OR A$=""2" OR A$="'3"" THEN GOTO 350 ELSE 
GOTO 330 

350 D=ASC(A$)-48 

360 GOSUB 560 

370 ON D GOSUB 940,1240,1410 

380 LOCATE 0,15:PRINT SPC(200) 

390 GOTO 270 

400 E=RND(-TIME) 

410 IF E<,33 THEN Q$="'BRARKONEN '' 
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420 
430 
440 
450 
460 
470 
480 


490 


500 
510 
520 
530 
540 
550 
560 
570 
580 
590 


600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 


IF E>.33 AND E<,66 THEN Q$="WREKTONEN ' 


IF E>.66 THEN Q$="POLLUXERS ' 

RETURN 

REM STATUS 

LOCATE 10,14: PRINT''ENERGIEVOORRADEN: ''; INME) ;" " 


IF E<1 THEN GOTO 1700 

IF AL>0O THEN LOCATE 16,3: PRINT"VOLTREFFER!': LOCATE 
17,4,0:PRINT''GERAAKT: "';AL, 

LOCATE 15,7:PRINT"U BEVINDT ZICH":LOCATE 15,8:PRINT B; 
CHR$(44) ;C; 

PRINT''IN''; LOCATE 15,9 

X=B:Y=C 

GOSUB 650 

PRINT" SECTOR" 

LOCATE 0,15 

RETURN 

LOCATE 0,16 

RETURN 

R=INI(RND(-TIME) *5) 

IF R=0 THEN PRINT'"'ZOCK: ZOALS JULLIE AARDBEWONERS 
ZEGGEN, "'; 

IF R=1 THEN PRINT'"'JOCK: "; 

IF R=2 THEN PRINT"LT, UBU: "; 

IF R=3 THEN PRINT''CHECKO: "; 

IF R=4 THEN PRINT"ZULU: "; 

RETURN 

Qty 

IF Q<10 THEN PRINT"'ANTARES' 

IF O9 AND Q<20 THEN PRINT"RIGEL"; 

IF Q>19 AND Q<30 THEN PRENT'"'PROCYON''; 

IF Q>29 AND Q<40 THEN PRINT"'VEGA"'; 

IF Q>39 AND Q<50 THEN PRINI''CANOPUS''; 

IF Q>49 AND Q<60 THEN PRINT"ALTAIR''; 

IF 0>59 AND Q<70 THEN PRINT"'SIGITTARIUS''; 
IF Q>69 AND Q<80 THEN PRINT"'POLLUX'"'; 

IF Q>79 AND Q<90 THEN PRINI"'STRIUS"; 

IF Q>89 THEN PRINT '"BETELGEUSE"; 

RETURN 


LOCATE 4,1,0 
PRINT"'1234567890"' 
FOR Q=1 TO 10 
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820 LOCATE 0,Q+1 

830 IF Q<10 THEN PRINT Q;" '; 

840 IF Q=10 THEN PRINT Q; 

850 FOR P=1 TO 10 

860 IF B(O,P)=0 THEN PRINT;CHR$(224) ; 
870 IF B(Q,P)=2 THEN PRINT;CHR$(225) ; 
880 IF B(O,P)=3 THEN PRINT;"%"'; 

890 IF B(Q,P)=4 TEEN PRINT; '*"!; 

900 NEXT P 

910 NEXT Q 

920 LOCATE 4,12:PRINT'1234567890'"' 

930 RETURN 

940 REM SCAN 

950 LOCATE 0,16:PRINT SPC(150) 

960 LOCATE 4,16:PRINT''SCANNER'' : PRINT 
970 GOSUB 580 
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980 

990 
1000 
1010 
1020 
1030 
1040 
1050 


1060 
1070 
1080 


090 
100 


1110 
120 
130 
1140 
1150 
1160 
1170 
180 
1190 
1200 
210 
1220 
230 
240 
250 
1260 
270 
280 
1290 
1300 
1310 
320 
330 
1340 
1350 


PRINT"DICHIBIJ (1) OF LANGE-AFSTAND (2), SIR";SPC(80) 
A$=INKEY$ 

IF A$="1! OR A$="2"" THEN GOIO 1010 ELSE GOTO 990 
K=ASC(A$)-48 

E=E-10*K 

GOSUB 560 

IF K=2 THEN GOTO 1070 

IF A(B+1,C)=1 OR A(B+1,C+1)=1 OR A(B,C+1)=1 OR 
A(B-1,C)=1 OR A(B-1,C-1)=1 OR A(B,C-1)=1 OR 
A(B+1,C-1)=1 OR A(B-1,C+1)=1 THEN PRINT Z$; "IN DE 
NABIJHEID, SIR";SPC(150) 

GOTO 1220 

GOSUB 580 

LOCATE 0,16:PRINT"RICHTING N(1), O(2), 2(3), W(4)''; 
SPC(150) 

A$=INKEY$ 

IF A$="1" OR A$=""2"" OR A$="3"" OR A$="4!"" THEN GOTO 1110 
ELSE GOTO 1090 

N=ASC(A$)-48 

Z=0 


AND A(B-2,C 


Wit 
LLN 


E 
z 
NN ND 


LL 


Zas a 


1 ) 
2 ) 
3 AND A(B,C+2) 
4 ) 


GOSUB 580 
PRINI"HET RAPPORT VAN DE SCANNER IS "; 
IF Z=1 THEN PRINT"POSITIEF" 

IF Z=0 THEN PRINT''NEGATIEF" 

FOR Z=1 TO 2000:NEXT Z 


PRINT SPC(6*29):LOCATE 3,16 
INPUT''RICHTING (N/Z)"';R$ 
B=B-1 

IF R$="Z"" THEN B=B+2 
LOCATE 3,18 

INPUT'"RICHTING (O/W)"';R$ 
C=C-1 

IF R$="O"" THEN C=C+2 
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1360 IF A(B,C)=1 THEN GOTO 1770 

1370 A(B‚C)=2 

1380 B(B,C)=2 

1390 GOSUB 770 

1400 RETURN 

1410 REM VUUR 

1420 LOCATE 0,15:PRINT SPC(6*29) ;LOCATE 3,16 
1430 INPUT'"'VUURRICHTING (N/Z)'';R$ 

1440 G=B-1 

1450 IF R$="Z" THEN G=G+2 

1460 LOCATE 3,18 

1470 INPUT"VUURRICHTING (O/W)'';R$ 

1480 F=B+1 

1490 IF R$="W" THEN F=F+2 

1500 E=E-100 

1510 IF A(G,F)<>1 THEN F=F+2 

1520 B(G,F)=3 

1530 AL=AL+1 

1540 B(G,F)=4 

1550 FOR Z=1 TO 1000:NEXT Z 

1560 GOTO 1690 

570 B(G,‚F)=3 

1580 PRINT"'U HEBT GEMIST ,SIR" 

1590 FOR Z=1 TO 1000:NEXT Z 

600 PRINI"DE ";Z$;'' SCHIETEN TERUG" 

1610 FOR Z=1 TO 1500:NEXT Z 

620 GOSUB 560 

630 IF RND(-TIME)>.6 THEN GOIO 1680 

640 PRINT"'ZIJ HEBBEN ONS GERAAKT ,SIR'" 

1650 GOSUB 770 

1660 E=E-INT(RND(-TIME)*100) 

670 GOTO 1690 

1680 PRINT'DE '';Z$;'' HEBBEN ONS GEMIST „SIR! 
690 RETURN 

700 GOSUB 560 

1710 LOCATE 0,17:PRINT'"'DE ENERGIEVOORRADEN ZIJN UITG in 
1720 PRINT"U HEBT ALLE BUITENAARDSE WEZENS GEDOOD"; 
730 IF ALX>1 THEN PRINT"'Z' 

1740 PRINT'"TIJDENS DEZE OPDRACHT" 

1750 PRINT"'UW STAAT VAN DIENST IS ''; INT(AL/8*100) 
1760 GOTO 1810 

1770 REM EIND 

1780 GOSUB 560 


\ 
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1790 LOCATE 0,16:PRINT''UW SCHIP IS OP EEN ";2$;" SCHIP 
GESTRAND'' 

1800 FOR Z=1 TO 100:NEXT Z 

1810 PRINT''NOG EEN SPEL (J/N)" 

1820 A$=INKEY$ 

1830 IF Ag="J"" OR A$="j"" THEN RUN 

1840 IF A$="N!"" OR A= 

1850 CLS 

1860 END 

1870 REM KARAKTER 224 

1880 DATA 11111111 

1890 DATA 11111111 

1900 DATA 11111111 

1910 DATA 11111111 
1 
1 
1 
1 


LSE GOTO 1820 


1920 DATA 111111 
1930 DATA 111111 
1940 DATA 111111 
1950 DATA 1111111 

1960 REM KARAKTER 225 
1970 DATA 11111111 
1980 DATA 00011000 
1990 DATA 00111100 
2000 DATA 00000000 
2010 DATA 00000000 
2020 DATA 00111100 
2030 DATA 00011000 
2040 DATA 11111111 
2050 REM KARAKTER 226 
2060 DATA 10101010 
2070 DATA 01010101 
2080 DATA 10101010 
2090 DATA 01010101 
2100 DATA 10101010 
2110 DATA 01010101 
2120 DATA 10101010 
2130 DATA 01010101 
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VOGELKOOI 


VOGELKOOI is een gokspel dat 'in het echt’ wordt 
gespeeld met een kooi die om een centrale as draait. In de 
kooi liggen drie dobbelstenen. Er wordt gewed op de 
waarschijnlijkheid dat een bepaald aantal ogen boven komt. 
Wanneer er 1 maal het aantal ogen ligt waarop u heeft 
gegokt, ontvangt u uw geld terug. Twee dobbelstenen met 
ditzelfde aantal ogen leveren het dubbele bedrag op en 
wanneer alle drie de dobbelstenen het door u voorspelde 
aantal ogen aangeven ontvangt u driemaal de inzet terug. 


U begint met 50 gulden, waarna u beslist hoeveel u wenst 
in te zetten en op welk nummer. De computer doet dienst 
als croupier en verzorgt verder al het werk. 


Anders dan bij het spel Chemin de Fer zijn de DATA voor de 


dobbelstenen binair gegeven in plaats van hexadecimaal. 
In de subroutine vanaf regel 370 worden deze ingelezen. 
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INPUT"'HOEVEEL WILT U INZETTEN";A 


IF A>M THEN GOTO 100 
PRINT 
M=M-A 


INPUT"OP WELK NUMMER WILT U INZETTEN (1-6)";B 


IF B<1 OR B>6 THEN GOTO 140 
FOR C=1 TO 3 

W=0 

PRINT 

GOSUB 340 
D=INT(RND(-TIME) *6+1 } 


PRINT''DOBBELSTEEN NUMMER "';C;'' ";CHR$(223+D) 


IF D=B THEN W=A 

IF D=B THEN PRINT"U WINT ";W 
M=M+W 

PRINT 

NEXT C 

FOR I=1 TO 3000:NEXT 1 

IF M>0 THEN GOTO 60 
PRINT''U BENT FAILLIET 11" 
FOR Z=1 TO 2000:NEXT Z 
SCREEN 0 

CLS 

END 

PRINT''U HEBT'"';M;"'GULDEN OVER" 
FOR I=1 TO 1000:NEXT 1 
RETURN 

FOR N=224 TO 229 

FOR M=0 TO 7 

READ A$ 

VPOKE N*8+M,VAL("&B"+A$) 
NEXT M 

NEXT N 

RETURN 


440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 


REM KARAKTER 224 
DATA 11111111 
DATA 11111111 


DATA 


1111111 


DATA 11100111 
DATA 11100111 
DATA 11111111 


DATA 


1111111 


DATA 11111111 
REM KARAKTER 


DATA 


DATA 11111001 


DATA 
DATA 
DATA 


DATA 


DATA 1001111 
DATA 1111111 
REM KARAKTER 
DATA 11111111 
DATA 1111100 


DATA 


DATA 11100111 


DATA 
DATA 


DELTA 


111100 
1111111 
111111 
0011111 


1111001 


1100111 
001111 


DATA 10011111 


DATA 


1111111 


REM KARAKTER 


DATA 


1111111 


DATA 10011001 


DATA 
DATA 


0011001 
1111111 


DATA 11111111 


DATA 
DATA 


0011001 
0011001 


DATA 11111111 
REM KARAKTER 
DATA 11111111 


DATA 
DATA 


0011001 
0011001 


DATA 11100111 
DATA 11100111 


DATA 


0011001 


225 


226 


227 


228 
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870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 


30 


DATA 10011001 
DATA 11111111 
REM KARAKTER 
DATA 10011001 
DATA 10011001 
DATA 11111111 
DATA 10011001 
DATA 10011001 
DATA 11111111 
DATA 10011001 
DATA 10011001 
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GOLF 


Eindelijk krijgt u de kans om uw krachten te beproeven op 
de 18 holes van het MSX-golfterrein. Bij de start van elke 
hole wordt u verteld hoeveel slagen u tot zover nodig hebt 
gehad en het aantal slagen dat u over de betreffende hole 
mag doen om deze 'par’ te spelen (dat is het gemiddeld 
aantal slagen dat voor die hole geldt). 


De afstand tot de hole wordt vermeld, waarna u aangeeft 
welke golfclub u wilt gebruiken. U hebt de keuze uit 8 
verschillende golfclubs. Een vuistregel is dat een zwaardere 
golfclub de bal over een grotere afstand verplaatst, maar in 
de praktijk gaat dat niet altijd volgens plan. 


Het is de bedoeling dat u de bal steeds in de richting van de 
‘green’ slaat, dat is de (gras)heuvel binnen een omtrek van 
20 meter van de hole. Wanneer u dus de bal over de green 
slaat, zult u weer terug moeten. Hebt u de bal in de hole 
gemikt, dan neemt de computer het van u over en geeft het 
aantal slagen aan dat nodig was om de hole te maken. Na 
een volle ronde van 18 holes vertelt de computer u het 
gemiddelde per hole voor het gehele parcours. 


De regels 60 t/m 400 vormen een loop die het programma 
18 maal dient te doorlopen, een keer voor elke hole. Regel 
80 bepaalt de afstand tot de hole en regel 220 berekent over 
welke afstand u hebt geslagen. Regel 230 produceert het 
geluid van de bal die wordt geslagen. 
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10 

20 

30 

40 

50 

60 

70 

80 

90 
100 
110 
120 
125 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
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REM GOLF 
CLS: KEY OFF 

COLOR 15,2 

Q=0 

T=0 

FOR H=1 TO 18 

E=0 

D=INT(RND( TIME) *400+100) 

Q=INT(D/70+.5) 

CLS 

LOCATE 0,4:PRINT"HOLE:";H 

LOCATE 0,6:PRINT"AANTAL SLAGEN TOT ZOVER:'"';T 
PRINT: PRINT"SLAGEN OM DEZE HOLE PAR TE SPELEN:';Q 
PRINT 

IF E>0 THEN PRINT''AANTAL SLAGEN:";E:PRINT 
PRINT"AFSTAND:'';D 

PRINT 

IF D=0 THEN GOIO 370 

IF D<20 THEN GOTO 300 

INPUT"'CLUB NUMMER ";C 

IF C<1 OR C>8 THEN GOIO 190 

PRINT 

R=INT(C*20*(RND(-TIME) +.5) } 

PLAY "OS5S8V10C' 


PRINT''U HEBT DE BAL!';R; "METER GESLAG] 
PRINT 

D=ABS(D-R) 

E=E+1 

FOR Z=1 TO 1000:NEXT Z 

GOTO 100 

PRINT''ON THE GREEN" 

PRINT 

FOR Z=1 TO 1000:NEXT Z 


R=INT(D/8) +1 

PRINT''PUTTS:'';R 

PRINT 

E=Et+R 

T=T+E 

PRINT"'AANTAL SLAGEN: ";E 

FOR Z=1 TO 2000:NEXT Z 

NEXT H 

PRINT''SCORE:'';T 
PRINT"'GEMIDDELDE PER HOLE:";T/H 


430 PRINT 

440 PRINT"NOG EEN SPELLEIJE (J/N) 
450 A$=INKEY$ 

460 IF Ag="J" OR A$="j" THEN RUN 
470 IP Ag="N" OR Af=""n"" THEN END 
480 GOTO 450 
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HET BETOVERDE WOUD 


In dit programma, gebaseerd op een origineel idee van Toni 
Baker, bent u diep in een groot en donker woud verzeild 
geraakt. Dit woud is verdeeld in een aantal driehoekigen 
sectoren. In een van die sectoren bevindt zich een draak. In 
andere sectoren komt u woeste kabouters en schitterende 
feeën tegen. Het spel is afgelopen wanneer u de draak hebt 
gedood. 


Het spel begint in een willekeurige sector van waaruit u zich 
kunt verplaatsen naar drie aangrenzende sectoren. Komt u 
terecht in een sector waar de draak of eèn kabouter u 
opwacht, dan wordt u gedood. Wordt u daarentegen 
verwelkomd door feeën, dan verplaatsen die u naar een 
willekeurige sector in het bos. U wordt gewaarschuwd 
wanneer zich kabouters of feeën in de buurt bevinden en 
natuurlijk ook wanneer de draak in de nabijheid is. Deze 
figuren blijven in de loop van het spel in dezelfde sector. 
Heeft u eenmaal uitgevonden waar ze zich bevinden, dan 
kunt u de betreffende sectoren mijden. 


U hebt drie pijlen, die u vanuit een aangrenzend veld op de 
draak kunt afvuren. U kunt op een bepaald veld schieten 
door het nummer van dat veld voorafgegaan door een 
minteken in te toetsen (om bijvoorbeeld op veld 63 te 
schieten, toetst u -63 in). Ik adviseer u om uw zoektocht te 
beperken tot de sectoren gelegen tussen 35 èn 65, omdat in 
deze sectoren de kans het grooist is dat u de draak zult 
vinden. 


10 REM HET BETOVERDE WOUD 
20 CLS:KEY OFF 

30 COLOR 15,3 

40 DIM A(30),B(10) 

50 G=3 

60 FOR Z=0 TO 30 

70 A(Z)=0 

80 NEXT Z 

90 FOR Z=0 TO 10 

100 A=INE(RND( TIME) 43041 } 

110 IF A(A)=1 THEN GOIO 100 
120 A(A)=1 
130 B(Z)=A4+35 
140 NEXT Z 
150 CLS 

160 TOCATE 0,4 
170 PRINI"U BEVINDT ZICH NU ONDER DE FEEEN'': PRINT 
180 PRINT"DIE U MET EEN TOVERSPREUK NAAR'': PRINT 
190 PRINT"EEN ANDER DEEL VAN HET WOUD'': PRINT 
200 PRINT"'ZULLEN VERPLAATSEN" 
210 PLAY "V1202812C2" 
220 FOR Q=1 TO 4000:NEXT Q 
230 Y=7 

240 X=INT(35+2%(RND(-TIME) #46) ) 
250 CLS 
260 LOCATE 0,4 

270 PRINT''U BEVINDT ZICH NU IN SECTOR es 

280 A=-1 
290 FOR Z=0 TO 10 
300 IF B(Z)=X THEN A=INP(2/5) 

310 NEXT 2 
320 IF A=0 THEN GOTO 170 
330 IF A=1 THEN PRINIDE KABOUTERS HEBBEN U GEDOOD! 


35 


340 
350 
360 


370 
380 
390 
400 
410 
420 
430 
440 
450 
460 


470 
480 


490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 


ÎF A=2 THEN PRINT''BRAVO! U HEBT DE DRAAK GEVONDEN" 
IF A>O THEN GOIO 590 

PRINI'', „U KUNT ZICH VERPLAATSEN NAAR'';X-1 ; "OF NAAR''; 
X-2;"OF NAAR';X+Y 

FOR Z=0 TO 2 

A(Z)=0 

NEXT Z 

FOR Z=0 TO 10 

D=B(Z)-X 

IF ABS(D)=1 OR D=Y THEN A(Z/5)=1 

NEXT Z 

D=ABS(D) 

IF D=2 OR D=6 OR D=8 THEN A(2)=1 

IF A(O)=1 THEN PRINT"ER ZIJN FEEEN IN DE BUURT''; 
PLAY '"'Vv803s9r"' 

IF A(1)=1 THEN PRINTER ZIJN KABOUTERS IN DE BUURT'': 
PLAY 'V804S8E" 

IF A(2)=1 THEN PRINI"DE DRAAK IS IN DE BUURT": 

PLAY 'V1303S11CD" 

A=2 

INPUT'"'U WILT NAAR SECTOR";M 

IF M<O THEN GOTO 550 

X=M 

Y=-Y 

GOTO 250 

IF M=-B(10) THEN GOTO 340 

G=G-1 

PRINT G;"PIJLEN OVER! 

IF G>0 THEN GOTO 500 

PRINT"WILT U NOGMAALS SPELEN (J/N) 

A$=INKEY$ 

IF A$="J" OR A 
IF A$="N" OR A$; 
GOTO 600 
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PUNTIGE WOORDEN 


PUNTIGE WOORDEN kunt u spelen met net zoveel 
mensen als u wilt. U moet proberen een woord te maken 
van de letters die PUNTIGE WOORDEN u voorschotelt. Het 
aantal letters waaruit u het woord moet samenstellen, voert 
u zelf in (maximaal 15 letters, zie regel 30). 


Vervolgens maakt u een woord. Gebruikt u teveel of 
verkeerde letters, dan betrapt de computer u, maar geeft u 
wel een herkansing. De letters hebben een vastgestelde 
waarde (zie regel 300-380, waar ook de berekening van de 
score plaatsvindt). PUNTIGE WOORDEN vertelt u aan het 
einde van het spel wat uw score is. 


10 REM PUNTIGE WOORDEN 

20 REM (C) JAAP VAN DRIEL & PETER TEN HOOR 
30 DIM P$(15) 

40 KEY OFF:CLS 

50 SCREEN 0 

60 D=64 

70 LOCATE 0,4 

80 INPUT"'HOEVEEL LETTERS'';A 

90 GOSUB 160 

100 LOCATE 0,8 

110 INPUI"'WELK WOORD KUNT U MAKEN" ;W$ 
120 GOSUB 230 

130 LOCATE 0,15 

140 PRINT''UW SCORE IS'';SC 

150 END 

160 FOR P=1 TO A 

170 Q=INT(RND(-TIME)*26) +1 

180 PRINT CHR$(D+Q) ; : 2$=2$+CHR$ (D+Q) 
190 FOR Z=1 TO 100:NEXT 2 

200 NEXT P 

210 GOSUB 390 

220 RETURN 

230 L=LEN(W$) 

240 FOR P=1 TO L 

250 T$=MID$(W$,P,1) 

260 GOSUB 300 

270 GOSUB 440 

280 NEXT P 

290 RETURN 

300 REM WAARDERING LETTERS 

310 IF T$="A" OR T$="D"" OR T$="E" OR Tj="T" 


OR T$='""N" OR 


T$="O" OR TE="R" OR Tj="S" OR Tf="T" THEN S=1 


320 IF T$="G" OR T$="E!" THEN S=2 
330 IF T$="B" OR T$="C!" OR T$="P" 
340 IF Tg="J" OR T$="K!" OR T$="V" 


S=4 
350 IF T$="F" OR T$=""X"" OR T$="Y" OR T$=!"Z" 
360 IF T$="Q!" THEN S=10 
370 SC=SC+S 
380 RETURN 
390 REM INLEZEN VAN DE TE GEBRUIKEN LETTERS 
400 FOR N=1 TO A 
410 P$(N)=MID$(Z$,N,1) 
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THEN S=3 
OR T$=""W"" THEN 


THEN S=7 


NEXT _N 

RETURN 

REM CONTROLE VAN DE GEBRUIKTE LETTERS 

EOR M=] TO A 

IF T$=P$(M) THEN P$(M)="" RETURN 

NEXT M 

LOCATE 0,10 

PRINT'"U HEBT EEN VERKEERDE LETTER GEBRUIKT''; T=1'41 
IF 1 THEN GOTO 510 ELSE PRINT''PROBEER HET NOG 
EENS": GOTO 100 

LOCATE 0,15:PRINT"'UW SCORE IS 0" 

END 
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DE INTERPLANETAIRE 
MIJNWERKERS-BLUES 


Gedurende 20 jaar regeert u over een uraniumpianeet. Het 
is aan u om te bepalen welke hoeveelheid uranium wordt 
verhandeld in rui! voor land en voedsel. leder stuk land kost 
u tien uraniumeenheden, evenals elk voedselpakket. 


De uraniumproduktie is afhankelijk van de hoeveelheid land 
die wordt bewerkt en de hoeveelheid arbeiders die u inzet. 


Als u niet over voldoende voedsel beschikt, zal een deel 
van de bevolking verhongeren en als er teveel mensen 
sterven, breekt er een opstand uit en kunt u werkelijk uw 
laatste blues zingen. 


Om de uraniumproduktie te kunnen handhaven heeft u 
minimaal 150 arbeiders nodig. Daalt het bevolkingsaantal 
beneden dit minimum, dan wordt u van uw troon gestoten. 
Wordt daarentegen de voedselvoorraad te groot, dan 
beginnen de bewoners zich als aardse konijnen te 
vermenigvuldigen, waardoor de toekomst er weer minder 
rooskleurig uit gaat zien. Dit programma is gebaseerd op 
een origineel idee van Alastair Gourlay. 
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10 
20 


130 
140 
150 
160 
170 
180 
190 


200 
210 


220 
230 
240 
250 
260 
270 
280 
290 
300 
310 


REM DE INTERPLANETAIRE MIJNWERKERS BLUES 

CLS 

P=400 

U=1000 

L=100 

FOR Y=1 TO 20 

PRINI: PRINT"'JAAR:"';Y; "UIT 20" 

PRINT: PRINT''BEVOLKING: "'; INT(P) 

PRINT: PRINT"'HOEVEELHEID LANDs'';L 
PRINT''URANIUMVOORRAAD:'"'; U 

PRINT: INPUT"'HOEVEELHEID LAND:"';W 

U=U-W*10 

IF U<O THEN PRINI"GEEN URANIUM 1!1":GOTO 340 
L=LtW 

INPUT "HOEVEELHEID VOEDSEL ";W 

U=U-W#10 

IF U<0 THEN PRINT''GEEN URANIUM !!1"sPRINT:GOIO 340 
R=RND(1)*10 

IF P-W*R*5>P/4 THEN PRINT: PRINT"'ONVOLDOENDE VOEDSEL VOOR 
HET VOLK'':PRINT:GOTO 250 

P=P+RND(1 }*(WER*S-P) 

IF P<150 THEN PRINT"'DE KOLONIE TELT NU MINDER DAN 150 
INWONERS''s PRINT: GOTO 340 

J=U+INT(P*L/50) 

CLS:NEXT Y 

PRINT'U HEBT 20 JAAR SUCCESVOL GEREGEERD''s PRINT: GOTO 360 
PRINT"ER LS EEN OPSTAND GEWEEST": PRINT 

FOR X=1 TO 1000:NEXT X 

IF RND(-TIME)*10<2 THEN GOTO 340 

PRINT "DEZE IS NEERGESLAGEN; PRINT 

FOR I=1 TO 1000:NEXT I 

GOTO 200 

PRINT "EINDE VAN HET KONINKRIJK 
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320 PRINT "URANIUM: ";U 

330 GOTO 360 

340 PRINT "U BENT VAN UW POST VERWIJDERD!" 
350 IF U>0 THEN GOTO 320 

360 INPUT "NOG EEN REGERINGSPERIODE (J/N)";A$ 
370 IF Af="J" OR A$="5'" THEN RUN 
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WACHTER DER TĲD 


Dit adventure game is gebaseerd op een programma van 
Adam Burbidge. Uw taak is de zes delen van de verloren 
gegane ’Sleutel der tijd’ terug te vinden. U reist in een 
ruimteschip waarmee u een door de MSX geschapen 
heelal doorzoekt. Bij het begin van het spel heeft u 700 
energiepunten; bij elke beweging verbruikt u er 5. Om u 
voort te bewegen typt u allereerst een getal in tussen O en 6 
voor het kwadrant en daarna nog twee waarden om de 
sector te bepalen waar u heen wilt (eveneens waarden 
tussen 0-6). Vervolgens vraagt de computer naar de tijd; u 
voert dan een 0 of een 1 in. 


U begint uw reis op de planeet Globnob, waarna u het 
heelal doorklieft op zoek naar andere planeten. Planeten 
die onbewoond zijn, of wel bewoond maar dan door een 
vijandig gezinde bevolking. Problemen genoeg voordat u 
alle zes delen van de Sleutel der tijd weer hebt verzameld. 
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REM WACHTER DER TIJD 

DIM K&(4),Z$(1),A3(6,6,6,1) 
K$(3)=700:F=75 

KEY OFF:CLS 

PRINT 

PRINT"IK CREEER EEN HEELAL!" 
B=INT(RND(-TIME)*7) 
C=INT(RND(-TIME) *7) 
D=INT(RND(-TIME)*7) 
E=INT(RND(-TIME) *2) 
A%(B,C,D,E)=2 

F=F-1:IF F<O THEN 140 

GOTO 70 

CLS 

GN=INT(RND(1 )*2) +1 

PRINT'"'U BEGINT BIJ GLOENOB'' 
PRINT 

PRINT''KWADRANT 5'' 

PRINT 

PRINT"'SECIOR 3,4" 

PRINT 

PRINT" TIJD"; GN*1 000; "AARDJAREN'' 
PRINT 

PRINI"'GEEF UW COORDINATEN'' 
INPUT"'KWADRANT"';G 

IF GO OR G>6 THEN GOTO 250 
INPUI"'SECIOR 1'';H 

PRINT 

IF H<O OR H>6 THEN 270 
INPUT"'SECIOR 2'';I 

IF IXO OR I>6 THEN GOTO 300 
INPUI"TIJD '';J 

IF J<O OR J>1 THEN GOIO 320 

IF A3(G,H,I,J)=1 THEN PRINT"'U BEVINDT ZICH OP 
GLOENOB'':GOTO 150 

IF AS(G,H,I,J)>1 THEN 370 
PRINT"MIDDEN IN HET HEELAL';GOTO 240 
PRINT"'U BEVINDT ZICH OP EEN PLANEET" 
PRINT''KWAD sG 
PRINT'"'SECTOR'';H, I 
PRINT""TIJD" ; J* (INT(RND(-TIME) *7) ) 
K&(1)=RND(1)*20 

IF K3(1)>5 THEN 440 


430 PRINT'"ONBEWOOND'':GOTO 240 

440 IF K&(1)>10 THEN 460 

450 PRINT"VIJANDIG GEZINDE BEVOLKING":GOTO 520 
460 PRINT"EEN DEEL VAN DE SLEUTEL DER TIJD" 

470 K3(2)=K3(2)+1 

480 PRINT"U HEBT NU'"';K&(2);"DELEN VAN DE SLEUTEL" 
490 IF K&(2)=6 THEN PRINT"U HEBT GEWONNEN": END 
500 GOTO 240 

510 FOR X=1 TO 10 

520 Z$=INKEY$ 

530 IF Z$=""" THEN 560 

540 NEXT X 

550 GOTO 240 

560 PRINT"HET SCHIP WORDT AANGEVALLEN" 

570 K3(3)=K3(3) -RND(1)*50 

580 PRINT"'ENERGIE: '"';K3(3) 

590 IF K$(3)<1 THEN PRINIHET SCHIP IS VERNIETIGD": END 
600 FOR T=1 TO 200:NEXT T 

610 GOTO 520 
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KUBUS 


Dit programma is een tweedimensionale uitvoering van de 
’Rubik cube’, ontworpen door de Hongaar Rubik. Bij het 
begin van elke beurt ziet u een oppervlak verdeeld in 16 
segmenten, waarin zich de cijfers 1-4 bevinden. U draait de 
kubus eerst een willekeurig aantal slagen verder (er zijn 9 
draaimogelijkheden). Daarna probeert u de originele 
samenstelling van de kubus terug te vinden. Hier is de 
sleutel om de delen van de kubus te draaien: 


1 2 3 4 
5 6 74 8 
9 10 1 12 
13 14 15 16 


Nadat een getal is ingetoetst, wordt een blokje van vier 
getallen een slag gedraaid: het aangegeven getal, dat aan 
de linkerzijde ervan, dat recht eronder en dat links eronder 
draaien een positie met de klok mee. Om die reden kunt u 
de getallen in de linker kolom en op de onderste regel (in de 
uitgangssituatie 1, 5, 9, 13, 14, 15 en 16) niet intoetsen. 


Het programma heeft een duidelijke structuur. De regels 
80-250 bepalen de beginconfiguratie en regel 280 zorgt 
ervoor dat de kubus ‘door elkaar wordt geschud’. De regels 
320-390 voeren de beweging uit en de subroutine vanaf 
regel 440 voert de kubus op het beeldscherm uit. 
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REM KUBUS 

CLS 

KEY OFF 

F=0 

DIM A(4),B(16) 
B=1 

FOR D=1 TO 4 


B(B+4)=C 
B(B+5)=C 
C=0 


LOCATE 8,10 
PRINT"'BEGINCONFIGURATIE'' 

F=F+1 

FOR Z=1 TO 2000:NEXT Z 

IF F<11 THEN X=INT(RND(1)*16)+1 
IF F>10 THEN INPUT X 

IF X<1 OR X>16 THEN GOTO 280 
IF X=5 OR X=9 OR X=1 OR X>12 THEN GOTO 280 
A(1)=B(X) 

A(2)=B(X+4) 

A(3)=B(X+3) 

A(4)=B(X-1) 

B(X)=A(4) 

B(X+4)=A(1) 

B(X+3)=A(2) 

B(X-1)=A(3) 

GOSUB 440 

IF F<10 THEN INPUT U$ 

F=F+1 

GOTO 280 
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440 CLS 

450 PRINTsPRINT 

460 FOR B=1 TO 16 

470 PRINT STR$(B(B));" "'; 

480 IF B/4=INT(B/4) THEN PRINT 

490 NEXT B 

500 LOCATE 0,10 

510 IF F<10 THEN PRINI'DRAAT'"';F 

520 IF F>10 THEN PRINT"'AANTAL SLAGEN"';F-10 
530 RETURN 


540 FOR Y=1 TO 100:PRINT INT(RND(1 )*16) +1; :NEXT Y 


DE INVASIEMACHT VAN 
EPSILON VIII 


Epsilon VIII heeft ongeveer 20 ruimteschepen naar de 
aarde gestuurd om te onderzoeken of onze planeet rijp is 
om onderworpen te worden. U dient de aarde te verdedigen 
door de Epsilonische ruimteschepen neer te schieten. Met 
de cursortoetsen kunt u vuren en naar links en rechts 
bewegen. Bij een voltreffer ziet en hoort u de vliegende 
schotels exploderen. 


Een voltreffer levert 25 punten op en een schampschot 10 
punten. De regels 240-300 zorgen voor het geluid van de 
explosie, regel 180 voor de afbeelding van de vliegende 
schotel en de raket op het scherm en regel 230 maakt een 
explosie op het scherm zichtbaar. 
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REM DE INVASTEMACHT VAN EPSILON VIII 

CLS 

KEY OFF 

T=0 

5=0 

GOSUB 390 

P=15 

FOR Z=1 TO 20 

H=INT(RND(1)*7+5) 

FOR N=0 TO 29 

D=STICK(0) 

IF D=3 THEN P=P+1 

IF D=7 THEN P=P-1 

IF D=1 THEN CF=1 

IF C=0 THEN GOSUB 390 

IF CF=1 THEN C=C-1 

CLS 

LOCATE N,HsPRINT'"#!!;CHR$ (200) ;""*""; :LOCATE P,C: PRINT''*"'; 
IF C=H AND P>=N-1 AND P<=N+1 THEN GOIO 230 
NEXT N 

NEXT Z 

GOTO 370 

LOCATE N+1 ,H-1 :PRINID"'*''; : LOCATE N,Hs PRINT"! ; ;LOCATE 
N+1 „H+1 2 PRINT'*! 

SOUND 7,10 

SOUND 1,0 

SOUND 0,254 

SOUND 8,16 

SOUND 13,9 

SOUND 12,60 

SOUND 11,0 

S=S+10 

IF P=N+1 THEN S=S+15 

LOCATE 2,20:PRINT''SCORE ';S 

GOSUB 390 

A$=INKEY$ 

IF A$=CHR$(13) THEN 370 ELSE 350 

IF Z>20 THEN CLS:LOCATE 9,10:PRINI"EINDE SPEL ': LOCATE 
7,12:PRINI"'UW SCORE IS'';S:GOSUB 470:GOTO 420 
GOTO 210 

Celë 

CF=0 

RETURN 
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420 LOCATE 3,17:PRINI"WILT U NOG EEN SPEL (J/N)" 
430 A$=INKEY$ 

440 IF A$="J"" OR A$="j'" THEN GOTO 40 

450 IF A$="N" OR A$=""n"" THEN END 

460 GOTO 430 

470 IF HS<S THEN HS=S 

480 PRINT:PRINITAB(7) "HIGH SCORE';HS 

490 RETURN 
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TOERISTENVALKUIL 


Dit adventure-spel is gesitueerd in het centrum van de stad 
Londen. U bent bezig met een sight-seeing tour en komt 
daarbij onderweg vele bezienswaardigheden tegen. Het 
uiteindelijke doel is Buckingham Palace. Een waarschuwing 
is hier op zijn plaats: het gaat om een zeer apart soort 
adventure, doorspekt met een flinke dosis humor en 
onverwachte gebeurtenissen. 


Door overmatig gebruik van willekeurige getallen, die alleen 
dienen om u te frustreren, zult u vele malen versteld staan. 
Wanneer u uiteindelijk, ten koste van de nodige 
steekpenningen, in het paleis bent aangeland, hoort u een 
triomfantelijk muziekje, dat wordt geproduceerd in de regels 
1520 tot 1570. 
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10 
20 


REM TOERISTENVALKUIL 

CLS: KEY OFF 

COLOR 15,2 

LOCATE 10,2 

PRINT"TOERISTENVALKUIL'' 

GOSUB 1390 

X=0 

S=30 

Wel 

PRINT''WIJ VERTREKKEN NU VOOR EEN TOCHT" 
PRINT''DOOR HET CENTRUM VAN LONDEN..." 

PRINT 

PRINT''U HEBT $30 EN U PROBEERT'' 

PRINT''OM BIJ BUCKINGHAM PALACE TE KOMEN" 
PRINT"HET PALEIS BEVINDT ZICH LANGS VOETPAD 10" 
PRINT 
PRINT"'BIJ AANKOMST HEBT U $35 AAN! 
PRINT"'STEEKPENNINGEN NODIG OM BINNEN TE KOMEN" 
PRINT 
PRINT"'DRUK OP DE RETURN-TOETS" 

A$=INKEYS$:IF A$="'" THEN 210 

IF A$=CHR$(13) THEN GOSUB 1360 

IF W<1 AND RND(-TIME)>.8 THEN GOTO 1470 

IF W<1 TEEN Wel 

PRINI"DIT IS VOETPAD'';W; 

IF W=10 THEN GOTO 1430 

PRINT" U BENT NOG'';10-W;"'VERWIJDERD VAN HET PALEIS" 
PRINT 


IF S<1 THEN S=INT(RND(-TIME)*5) 
PRINT"U HEBT $'';S;"OP ZAK" 

X=X+1 

PRINT 

PRINT"DIT IS PROBLEEM';X 

PRINT 

K=INT(RND(-TIME) *5+2) 

PRINT 

PRINT"U KIJKT NU IN DE RICHTING VAN';K 


A=INT(RND(-TIME)*4+1 ) 

IF A=1 THEN PRINI'"'DEUREN'" 

IF A=2 THEN PRINT"WINKELS' 

IF A=3 THEN PRINT"'VOETGANGERSOVERSTEEKPLAATSEN' 
IF A=4 THEN PRINT"'METROSTATION INGANGEN' 

PRINT 


440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 T 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 


PRINT"WELKE WILT U GEBRUIKEN" 


INPUT B 

IF B>K OR B<1 THEN GOTO 450 

GOSUB 1360 

IF RND(-TIME)<.4 OR B=A THEN GOSUB 990 


C=INT(RND(-TIME) *441 ) 

IF C=1 THEN PRINT'GEK ''; 

C=2 THEN PRINT"1DIOOT he 

C=3 THEN PRINT"HELP "; 

C=4 THEN PRINI"VERRASSING Ng 
enen STAAT OOG IN OOG MET EEN "; 


7 
IF A=5 THEN PRINT''BLAUWE ele 

IF A=6 THEN PRINT''VUURROI 

IF A=7 THEN te GELE ' 
A=INT(RND(— TIME) *5+1) 

IF A=1 THEN B$="LACHENDE POLITIEAGENT '"' 


IF A=2 THEN B$="VERWONDERDE TOERIST ' 
IF A=3 THEN B$="KAARTJESCONTROLEUR " 
IF A=4 THEN B$="'PARKEERWACHTER " 

IF A=5 THEN B$="BUSCHAUFFEUR " 


A=INT(RND(-TIME)*7+1 ) 


IF A=l THEN C$="'BON VOOR FOUT PARKEREN" 

IF A=2 THEN C$="KAARTJE VOOR DE TOWER" 

IF A=3 THEN C$="PRENTERIEFKAART VAN TRAFALGAR SQUARE" 
IF A=4 THEN C$="KAART VAN CAMBRIDGE" 

IF A=5 THEN C$="AAP OP EEN STOKJE" 

IF A=6 THEN C$=""ZAK FRIET MET EEN FRIKANDEL" 

IF A=7 THEN C$="KAARTJE EERSTE RANG VOOR OXFORD CIRCUS'' 
PRINT B$;''MET EEN ";C$ 

PRINT 

PRINT"'WAT IS UW REACTIE" 

PRINT 

PRINT"'(1) SPUWEN" 


PRINT"'(2) VLOEKEN' 

PRINT"'(3) OM HULP SCHREI 

PRINT''(4) ER MET EEN STOK IN PRIKKEN"' 

PRINT''(5) VERTELLEN DAT U GEEN ENGELS SPREEKT"! 
PRINT''(6) VERTELLEN DAT U EEN VREEMDELING BENT" 
INPUT A 

IF A>6 OR A<1 THEN GOTO 840 
B=INT(RND(-TIME)*1+1 ) 
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870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 


980 

990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 


1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 


1220 
1230 
1240 
1250 
1260 


GOSUB 1360 

IF INT(RND(-TIME)*5+1)=1 OR A<B THEN A=B 

IF A=B THEN PRINI'"'U WAS DE ';B$;"TE SLIM AF" 

IF A=B THEN S=S+INT(RND(1)*10) 

IF A=B THEN PRINT"' EN U HEBT NU $';S 

IF A=B THEN W=W+INT(RND(1 )*4+1) 

IF W>10 THEN W=10 

PRINT 

IF AB THEN PRINT'"'DE '";B$;'' WAS U TE SLIM AF" 

IF A©B THEN S=S-INT(RND(1)*5+1) 

IF W<10 THEN PRINT'"'U BEVINDT ZICH IN DE BUURT VAN HET 
VOETPAD ';W 

GOTO 190 

A=INT(RND(—TIME) *4+1 ) 

ON A GOSUB 1020,1110,1150,1270 

GOTO 190 

PRINT"'U BENT GEVALLEN"; 

B=INT (RND( TIME) *4+1) 

IF B=l THEN PRINT'' AAN DE VOET VAN DE BIG BEN" 

IF B=2 THEN PRINT'' OP HET STRAND" 

IF B=3 THEN PRINT'' VOOR HET VERKEER IN PICCADILLY CIRCUS'' 
IF B=4 THEN PRINT INT(RND(1)*99+1);'STAPPEN VAN DE THEEMS" 
WaW 

S=S-INT(RND(1)*2+1 ) 

RETURN 

PRINT"'U BENT GESNAPT TOEN U IN BUS NO. '';INP(RND(1)*99+1) ; 
YMEEREED ZONDER KAARTJE" 

WaW-1 

S=S-INI(RND(1 }*2+1 ) 

RETURN 

PRINT"'U WINT EEN '; 

D=INT(RND(—TIME) *6+1 ) 

IF D=1 THEN PRINT''HUZARENSLAATJE' 

IF D=2 THEN PRINT''KAARTJE VOOR MADAME TUSSAUD' 

IF D=3 THEN PRINT'"'GOEDE ZITPLAATS IN COVENT GARDEN" 
IF D=4 THEN PRINT''METROTICKET NAAR SHEPARDS BUSH'' 

IF D=5 THEN PRINT'"EEN STOEL BOVEN OP BUS NO. ''; 
INT(RND(1 )*99+1 ) 

IF D=6 THEN PRINT'"'BLAUW OOG VAN EEN BRUTALE STAMGAST" 
S=S+INT(RND(1 )*5+1 ) 

W=W+INT(RND(1 )*3+1 ) 

IF W>10 THEN W=10 

RETURN 
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1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
470 
480 


1490 


500 
510 
520 
530 
540 
550 
560 
1570 
1580 


PRINT''U HEBT EEN KAART VAN LONDEN GEVONDEN'' 


PRINT 

PRINT 

PRINT"'KIES UW BONUS (TOT $5 
INPUT A 

IF A>5 THEN GOIO 1310 
S=S+A 

W=W-INT(A/2) 

RETURN 

CLS 

FOR M=1 TO INT(RND(1)*125) 
NEXT M 

FOR M=1 TO 5 

PRINT 

NEXT M 

RETURN 

PRINI"'U BEVINDT ZICH BĲ DE 
PRINT" 

PRINT"'KOPEN, DRUK OP RETURN 
INPUT A$ 

GOSUB 1360 


y" 


PALEISPOORT"' 


BT U DE $35 OM UW WEG NAAR BINNEN TE" 


OM DAT TE ONTD 8 


IF S<35 AND W>5 THEN PRINT'U BEZAT SLECHTS $"';S;'' EN U 
BENT NU GEDEPORTEERD. . …"': PRINT 


IF W<1 THEN PRINI'U HEBT GE 
ONTHOOFD.  …"'; 

END 

PRINT'JA, U BEZIT $'';S 
A$=""OSCDO4BO5E2'"' 
B$="'OSEFDG2" 

C$=""OSGAGOGC2"" 

PLAY A$ 

PLAY A$,B$ 

PLAY A$,B$,C$ 


FAALD ALS TOERIST... EN BENT 


PRINT"'DE RODE LOPER LIGT VOOR U KLAAR..." 
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KLINKEREN 


Voor de variatie nu eens geen arcade- of adventure-spel, 
maar een woordspelletje voor twee spelers: KLINKEREN. 
Een van beide deelnemers (de computer geeft steeds aan 
wie) toetst een woord in, de computer haalt de klinkers uit 
het woord en laat het in die vorm weer op scherm zien. De 
tegenspeler heeft dan drie pogingen om het juiste woord te 
raden. Raadt hij het niet, dan geeft de computer aan wat de 
juiste oplossing wel was. 


Na de vraag of beide spelers nog een spelletje willen 
spelen, mag deelnemer 2 een woord invoeren en moet 
deelnemer 1 raden. De spelerswisseling (van D1$ naar 
D2$) vindt plaats in regel 240 met behulp van de instructie 
SWAP). 


10 REM KLINKEREN 

15 REM (C) PETER TEN HOOR 

20 KEY OFF 

30 CLS 

40 LOCATE 4,4: INPUT''DEELNEMER 1'';D1$ 

50 LOCATE 4,6: INPUT"DEELNEMER 2';D2$ 

60 CLS 

70 LOCATE 4,8:PRINT D1$;'' VOER EEN WOORD IN''; 

80 INPUT W$ 

90 CLS 

100 GOSUB 280 

110 FOR K=1 TO 3 

120 LOCATE 6,8:PRINI"WAT IS DE OPLOSSING ';D2$; 
130 INPUT O$ 

140 LOCATE 3,12 
150 IF O$=W$ THEN PRINT"JUIST":FOR Z=1 TO 1000:NEXT 2:GOTO 

180:ELSE PRINT"'ONJUIST":FOR Z=l TO 500;NEXT Z 

155 LOCATE 6,8:PRINT SPC(200) 
160 NEXT K 
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170 LOCATE 2,10:PRINI"DRIEMAAL FOUT GERADEN, HET JUISTE 
ANTWOORD WAS: '';W$ 

180 FOR Z=1 TO 2000:NEXT Z:;CLS 

190 LOCATE 3,10:PRINT D1$;'' EN ';D2$;'' NOG EEN SPELLETJE' 

200 A$=INKEY$ 

210 IF Ag="J"" OR A$="j"" THEN GOTO 240 

220 IF Ag=!""N" OR A$=""n"" THEN CLS:END ELSE GOTO 190 

230 GOTO 190 

240 T$=D2$ 

250 D2$=D1$ 

260 D1$=T$ 

270 GOTO 60 

280 Z=LEN(W$) 

290 FOR X=1 TO 2 

300 P$=LEFT$(MID$(W$,X) ,1) 

310 IF P$="A"" OR P$="E!" OR P$="I!' OR P$="O"" OR P$="U!"" THEN 340 

320 IF P$="a"" OR P$="e!"! OR P$='"'i"" OR P$="O!"" OR P$=''u'"" THEN 340 

330 N=N+1:LOCATE N+10,4:PRINT P$; 

340 NEXT X 

350 RETURN 


RUIMTEGEVECHT 


Dit spel is een test op reactiesnelheid. U vliegt dwars door 
een asteroïdengordel en wordt vanuit alle mogelijke 
richtingen aangevallen en gebombardeerd door 
onvriendelijke (bestaan er dan andere?) buitenaardse 
wezens. U dient deze wezens neer te schieten, de 
asteroïden te ontwijken en ervoor te zorgen dat u niet per 
ongeluk een van uw eigen schepen treft. 


Dit zijn de vier vormen die op het scherm verschijnen: 


e karakter 227 bevriend schip 
wanneer u dit raakt, verliest u punten 


e karakter 224 loze ruimte 
levert 1 punt op 


e karakter 226 vreemd schip 
voltreffer levert 20 punten op, 
bij een misser verliest u het spel 


e asterisk(*) asteroïde 
voltreffer levert 10 punten op, 
een misser betekent het einde van het 
spel 


Vuren doet u met de ltoets. Dit programma is gebaseerd op 
een programma van Alastair Gourlay. 
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T=0 

LOCATE 0,1:PRINT"OP UW MISSIE DIENT U VIJANDIGE SCHEPEN 
EN ASTEROIDEN NEER TE SCHIETEN, U MAG GEEN BEVRIENDE 
SCHEPEN RAKEN.'':LOCATE 0,8:PRINT"DIT IS EEN BEVRIEND 
SCHIP: —"';CHR$ (227) 

LOCATE 0,10:PRINT"DIT IS EEN VIJANDIG SCHIP:-"';CHR$(226) 
LOCATE 0,12:PRINT"DIT IS EEN ASTEROIDE: -*"' 

FOR Z=1 TO 3000:NEXT Z 

CLS 
FOR Z=10 TO 18 

LOCATE Z,8:PRINT CHR$(224) :NEXT Z 

LOCATE 10,9:PRINT CHR$(224) : LOCATE 14,9: PRINT 
CHR$ (225) :LOCATE 18,9:PRINT CHR$(224) 

LOCATE 10,10:PRINT CHR$(224) 

FOR Z=11 TO 16 

LOCATE Z,11:PRINT CHR$(225) 

NEXT Z 

LOCATE 18,10:PRINT CHR$(224) 

LOCATE 10,11:PRINT CHR$(224) : LOCATE 14,11 : PRINT 
CHR$ (225) : LOCATE 18,11:PRINT CHR$(224) 

FOR Z=10 TO 18 

LOCATE Z,12:PRINT CHR$(224) 

NEXT 4 

R=INT(RND(-TIME)*4) +1 

T=T+1 

IF T=5000 THEN GOTO 450 

IF R<2 THEN A$=CHR$ (224) 

IF R=2 THEN A$=CHR$ (226) 

IF R=3 THEN Ag=""#"! 

IF R=4 THEN A$=CHR$(227) 

LOCATE 14,10:PRINT A$ 

zel 

B$=INKEY$ 

Z=Z+1 

IF B$="I" THEN GOSUB 500:GOTO 380 

IF 2450 THEN GOTO 340 

IF R<2 THEN S=S+1 
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390 
400 
410 
420 
430 
440 
450 
460 


470 


480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 


IF R=4 AND B$="I" S=0:GOTO 420 

IF R=3 AND B$<>"I! THEN GOTO 450 

IF R=2 THEN S=S+10 

LOCATE 4,20:PRINT"'SCORE "';5;" " 

LOCATE 14,7:PRINT CHR$(225) 

GOTO 250 

LOCATE 0,19:PRINT"EINDE SPEL — UW SCORE IS'"';S 
IF S<10 THEN PRINT"U BENT GEDEGRADEERD TOT 
COMPUTERPOETSER'"' 
IF S>100 THE PRINT"UITSTEKEND — U HEBT HET 
INTERGALACTISCH KRUIS MET EIKENLOOF VERDIEND'"' 
END 

REM SOUNDROUTINE 

SOUND 0,56 

SOUND 1,1 

SOUND 7,62 

SOUND 8,8 

RETURN 

END 

FOR N=224 TO 227 

FOR M=0 TO 7 

READ A$ 

VPOKE N*8+M, VAL ("&H"'+A$) 

NEXT M 

NEXT N 

RETURN 

REM DATA VOOR KARAKTERS 


„00, 
DATA 18,3C,66, 
DATA 7E,FF,FF, 
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DOBBELEN 


Het volgende spel kan met meerdere mensen worden 
gespeeld (maximaal 10). De spelregels zijn eenvoudig: u 
gooit met twee dobbelstenen. Gooit u in de eerste ronde 7 
of 11 dan hebt u gewonnen, gooit u 2, 3 of 12 dan hebt u 
verloren. Mocht u geen van deze vijf getallen hebben 
gegooid, dan volgt er een tweede ronde. Daarin gooit u net 
zolang verder tot u het aantal ogen van uw eerste worp 
nogmaals gooit; dan wint u. Gooit u daarentegen 7, dan 
hebt u verloren. 


De subroutine vanaf regel 530 zorgt voor het geluid van de 
rollende dobbelstenen. 


420 
430 


KEY OFF:CLS 

DIM S(10) 

LOCATE 1,6: INPUT"'HOEVEEL SPELERS" ;A 

IF A>10 THEN GOTO 50 

LOCATE 1,16:PRINI"DRUK OP DE SPATIEBALK OM DE STENEN" 
LOCATE 9,18:PRINI"'TE LATEN ROLLEN" 

FOR Q=1 TO 1000:NEXT Q 


FOR Z=1 TO A 
PRINT''SPELER''; Z; '"GOOIT'' 
A$=INKEY$:IF A$<!' " THEN 140 
GOSUB 530 
G1=INT(RND(-TIME) *6+1 ) 

G2=INT (RND(-TIME) *6+1 ) 
G=G1+G2 

PRINTTAB(5) "AANTAL OGEN";G 

IF G=2 OR G=3 OR G=12 THEN 360 
IF G=7 OR G=11 THEN 330 

T=G 

PRINT''SPELER"';Z;"GOOIT'' 
A$=INKEY$:IF A$=" ' THEN 240 
GOSUB 530 

P=RND(-TIME) 
G1=INT(RND(—TIME) *6+1 ) 

G2=INT (RND(-TIME) *6+1 ) 
G=G1+G2 

PRINTTAB(5) "AANTAL OGEN'';G 
IF G<>7 AND GOT THEN 230 

IF G=7 THEN 360 

S(Z)=S(Z)+1 
PRINTTAB( 20) "GEWONNEN" 

GOTO 380 

S(Z)=S(Z)-1:1F S(Z)<O THEN S(Z)=0 
PRINTTAB(20 ) "VERLOREN" 

NEXT Z 

PRINT: PRINTTAB(3) DRUK OP SPATIEBALK VOOR STAND" 
A$=INKEYS:IF A$<>" '' THEN 400 
CLS 

LOCATE 3,6:PRINT"'SPELER' 
LOCATE 13,6:PRINT"'PUNTEN'' 
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440 FOR Z=1 TO A 

450 LOCATE 6,74+Z: PRINT Z 

460 LOCATE 15,7+Z:PRINT S(Z) 

470 NEXT Z 

480 PRINT:PRINT''NOG EEN KEER (J/N)" 

490 A$=INKEY$ 

500 IF A$="J"" OR A$="j"! THEN GOTO 100 

510 IF Ag="N" OR Ag="'n" THEN END ELSE GOTO 490 

520 END 

530 FOR Y=5 TO 15 

540 SOUND 0,100 

550 SOUND 1,Y 

560 SOUND 6 

570 SOUND 7 

580 SOUND 8 
1 
1 
1 


590 SOUND 
600 SOUND 
610 SOUND 
620 NEXT Y 
630 FOR X=0 TO 13:SOUND X,O:NEXT X 
640 RETURN 
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MAANLANDING 


Geen enkele collectie computerspelletjes is compleet 
zonder een maanlanding. U bevindt zich in een 
omloopbaan rond de maan. Helaas is de automatische 
piloot defect. U dient de landing nu met de hand uit te 
voeren, daarbij gebruik makend van de informatie op het 
instrumentenpaneel. Hierop kunt u verschillende zaken 
aflezen: de afstand tot het maanoppervlak, de snelheid en 
de hoeveelheid overgebleven brandstof. Sturen doet u met 
behulp van de straalaandrijving. Een te hoog niveau kan u 
letterlijk het scherm doen uitschieten. Door de geringe 
aantrekkingskracht van de maan kunt u zich daarna weer 
laten zakken. 


Lunar Orbiter 
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REM MAANLANDING 
SCREEN 1 

KEY OFF:CLS 

GOSUB 510 

COLOR 11,12 

A=INT(-20-RND(1 )*60) :REM SNELHEID 
B=INT(1200+RND(1 )*380) :REM HOOGTE 
C=INT(320+RND(1 )*90) :REM BRANDSTOF 

CLS 

P=INT(RND(1)*#12+41) 

N=ABS(18-B/100) 

X=B:GOSUB 480 

LOCATE 1,19:PRINT"'HOOGTE '';X 

X=A:GOSUB 480 

LOCATE 1,20:PRINT"'SNELHEID '';X 
X=C:GOSUB 480 

LOCATE 1,21:PRINI''BRANDSTOF'';X 

LOCATE 1,17:PRINT"'====e=eeee=eeeeezeeee!" 
Y=17-B/100 

IF Y<0 THEN Y=0 

LOCATE P,YsPRINT CHR$(224) 

FOR Z=1 TO 300:NEXT Z 

LOCATE P,Y:PRINT CHR$(224) 

LOCATE 22,3:PRINT" ' 

LOCATE 10,3: INPUT"'AANDRIJVING'"';T 

FOR Z=1 TO 300:NEXT Z 

PLAY"FF" 

IF T>C THEN T=0 

c=C-T 

B=B+A+ (T-5)/2 

AzA+(T-5)/2 

PRINT 

IF B>24 AND C>50 THEN LOCATE P,Y:PRINT" ';GOTO 120 
IF C<50 AND B>100 THEN GOTO 390 

IF ABS(B)<50 AND ABS(A)<25 THEN PRINT"U BENT VEILIG 
GELAND'':GOTO 390 

IF C>1 THEN GOIO 390 

PRINI'"'U HEBT GEEN BRANDSTOF MEER'' 
X=ABS(A) :GOSUB 480 

CLS: LOCATE 0,10:PRINT''U BENT NEERGESIORT MET'';X;''KM PER 
UUR! 

FOR Z=1 TO 3000:NEXT Z 

LOCATE 4,13:PRINT''NOG EEN SPELLEIJE (J/N)" 
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430 A$=INKEY$ 

440 IF Ag="J"! OR A$="j'' THEN RUN 

450 IF Ag="N"" OR Af='n" THEN GOTO 460 ELSE GOTO 430 
460 PRINT"TOT ZIENS..." 

470 END 

480 X=INT(X#1000)/1000 

490 RETURN 


END 
510 FOR N=224 TO 224 
520 FOR M=0 TO 7 
53C READ A$ 
540 VPOKE N*8+M,VAL('8B'"+A$) 
550 NEXT M 
560 NEXT N 
570 RETURN 
580 REM KARAKTER 224 
590 DATA 00010000 
600 DATA 00111000 
610 DATA 00111000 
620 DATA 00111000 
630 DATA 00111000 
640 DATA 01111100 
650 DATA 01111100 
660 DATA 01111100 
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BIORITME 


Er zijn vele opvattingen over de krachten die ons leven 
bepalen. Een daarvan gaat ervan uit dat het leven één grote 
golfbeweging is en dat er drie cycli zijn, die beginnen bij de 
geboorte en zich voortzetten gedurende ons verdere leven. 
Deze drie cycli zijn: 


« fysieke cyclus een 23-daagse cyclus, die te 
maken heeft met agressiviteit en 
kracht 


e emotionele cyclus een 28-daagse cyclus die invloed 
heeft op emoties, zoals driftbuien, 
neerslachtigheid en optimisme 


e intellectuele cyclus een 33-daagse cyclus die ons 
vermogen tot logisch denken en 
gezond verstand bepaalt 


Omdat deze cycli verschillend van lengte zijn, is het 
mogelijk dat u zich hoog in de ene en laag in de andere 
eyclus bevindt. Dit verklaart waarom u de ene dag erg 
onhandig en tegelijkertijd mentaal zeer alert kunt zijn, terwijl 
u op een andere dag met de welbekende 'mond vol tanden’ 
blijft staan ondanks het feit dat u zich fit genoeg voelt om de 
Eiffeltoren te beklimmen. Er zijn echter van die zeldzame 
dagen dat alle pieken samenvallen en alles en iedereen in 
uw voordeel werkt. Wanneer echter alie dalen op dezelfde 
dag vallen kunt u maar beter in bed blijven. 


De computer vraagt u eerst uw geboortedatum in te typen 
(in de volgorde dag, maand, jaar) en de datum waarvoor u 
de voorspelling wenst. U krijgt dan te zien waar het laagste 
punt in elke cyclus ligt, gerelateerd aan de datum die u hebt 
gekozen. Een negatief aantal dagen (bijvoorbeeld -5), 
betekent dat aantal dagen vóór de datur in kwestie, 


Als u de enige persoon bent die van dit programma gebruik 


maakt, kunt u regel 80 zo veranderen dat deze permanent 
uw eigen geboortedatum bevat. 
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REM BIORITME 

KEY OFF 

SCREEN 0 

Y$="DE SLECHTSTE DAG IS ' 
X$="" CYCLUS" 

CLS 

PRINI: PRINT: PRINT 

INPUT''UW GEBOORTEDATUM (D,M,J)'"';D,M,J 
GOSUB 440 

Y=ED 

INPUT'"'DATUM VOORSPELLING (D,M,J)'';D,M,J 
ZJ 

GOSUB 440 

G=d-Y 

G=23 

PRINT 

PRINT"'FYSIEKE'';X$ 

PRINT Y$ 

GOSUB 350 

C=28 

PRINT 

PRINT"'EMOTIONELE''; X$ 

PRINT Y$ 

GOSUB 350 

C-33 

PRINT 
PRINT'"'INTELLECIUELE'";X$ 
PRINT Y$ 

GOSUB 350 

PRINT 

INPUT"WENST U NOG EEN DATUM (J/N)";A$ 
AS=LEFT$(A$,1) 

IF A$g="J"" OR A$="j"" THEN RUN 
END 

REM BEREKENING CYCLUSPUNT 
T=0 

F=G-INT(G/C)*C 

IF FP>C/2 THEN H=C-F:GOTO 400 


IF F=0 OR C/2=F THEN PRINT''VANDAAG'': RETURN 


H=INI(C/2-F) 

IF H=0 THEN PRINT''VANDAAG'': RETURN 
PRINT'"'NA'';H; '"DAGEN'' 

RETURN 
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440 REM BEREKENING VAN DE TIJD IN DAGEN 
450 T=0 

460 IF M-3>=0 THEN B=Bt1:GOTO 500 

470 IF T=2 THEN B=B+1:GOTO 500 

480 J=J-1 

490 B=B+13 

500 BD=INT(J*365. 25) +INT(M*30.6) +D 

510 RETURN 
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BOMMENWERPER 


U bent de moedige piloot van een snelle laagvliegende 
bommenwerper. Uw missie bestaat uit de vernietiging van 
tanks tijdens gewaagde scheervluchten. De uitdaging van 
dit spel is de bom op het juiste moment te laten vallen. U 
kunt slechts één bom per keer transporteren en daarom is 
het van levensbelang dat deze doel treft. Bommen laat u 
vallen door een willekeurige toets in te drukken. Na een 
voltreffer zorgt regel 360 voor het realistische geluid van de 
explosie. BOMMENWERPER is gebaseerd op een 
programma van Alastair Gourlay. 
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REM BOMMENWERPER 

KEY OFF 

CLS 

SCREEN 1 

GOSUB 400 

H=0 

FOR B=1 TO 5 

CLS 

R=INT(RND(-TIME) *20) 
LOCATE R,‚20:PRINTCHR$( 225) : LOCATE 0,21: PRINT 
" u 


FOR X=31 TO O0 STEP-1 
LOCATE X,15:PRINTCHR$ (224) 


FOR Z=l TO 25:NEXT Z 

Y=0 

A$=INKEY$ 

IF Y=0 AND A$<>!"" THEN Y=15 


LOCATE 17,2:PRINT''SCORE: "H;''/';B-1 
IF Y<>0 THEN GOIO 310 

LOCATE X,15:PRINT'"' '' 

NEXT X 

LOCATE 17,2: PRINT''SCORE: '';H;"/';B 
FOR Z=1 TO 1000:NEXT Z 

NEXT B 

SCREEN 0 

LOCATE 8,10 

PRINT''NOG EEN SPELLETJE (J/N)' 
A$=INKEY$ 

IF A$=""J"" OR A$=""j"" THEN RUN 

IF Af="'N"" OR A$=''n"" THEN PRINT'"TOT ZIENS. . .'": END 
GOTO 270 

FOR Z=Y+1 TO 20 

LOCATE X,Z:PRINT',' 

FOR Q=1 TO 50:NEXT Q 

LOCATE X,Z:PRINT'" ' 

NEXT Z 

IF X=R THEN H-H+1 :PLAY'"T1 2004FDE' 
IF Y<20 THEN GOTO 210 

GOTO 210 

END 

FOR N=224 TO 225 

FOR M=0 TO 7 

READ A$ 


430 VPOKE N*8+M,VAL(''&H''+A$) 

440 NEXT M 

450 NEXT N 

460 RETURN 

470 REM KARAKTER 224 EN 225 

480 DATA C0,61,33,7F,FF,0C,06,03 
490 DATA 06,0C,18,3C,3C,7E,FF,7E 
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MINIVADERS 


Buitenaardse machten vallen aan (hebben ze niks beters te 
doen?) en u alleen (alweer) moet ze zo lang bezighouden 
dat een tegenaanval kan worden opgezel. Slaagt u daar 
niet in, dan is de gehele mensheid ten dode opgeschreven. 
De indringers vallen aan vanaf de linkerkant van het scherm 
en bewegen zich langs een vaste baan bovenaan het 
scherm. U hebt maar één richting om te vuren, namelijk 
recht omhoog, maar dankzij de cursortoetsen kunt u zich 
ook eerst zijwaarts verplaatsen en dan vuren. Gedurende 
het spel wordt steeds de tijd bijgehouden dat u de aanval al 
hebt overleefd. Wanneer u niet in staat bent een indringer 
binnen een bepaalde tijd te raken, zult u (en met u de 
gehele mensheid) worden vernietigd. Dus wees paraat en 
begin te vuren zodra de indringers verschijnen. 


74 


10 
20 


REM MINIVADERS 
KEY OFF 

CLS 

SCREEN 1 

GOSUB 530 

ge" u 

Q=1 

5=25 

P=15 

Le2 

FOR Q=1 TO 33 

LOCATE Q,18:PRINT"—'" 

NEXT Q 

Ag=!! Y4CHR$(225) +" "4CHR$(225) +" "4CHRE(225) +" 4 
CHR$(225) +"! "4+CHR$(225) +" '"+CHR$(225) +" "4+CHRS(225) + 
NACHR$(225)+" "+CHR$(225) +" "ACHR$(225) +" "+CHR$(225) 
IF S/L>50 THEN GOTO 210 

FOR Z=0 TO 35 

LOCATE Z,L: PRINT" " 

NEXT Z 

La=lL+1 

IF L>17 THEN GOTO 360 

Q=INSTR(A$,CHR$(225) ) 

IF Q=0 THEN GOTO 360 

LOCATE O,L:PRINT A$:LOCATE P,17:PRINT CHR$(224) 
FOR Z=1 TO 200:NEXT Z 

D=STICK(0) 

IF D=1 THEN GOSUB 390:GOTO 150 

LOCATE P‚17:PRINT" ' 

IF D=3 AND P<31 THEN P=P+1 

IF D=7 AND P>1 THEN P=P-1 

AS=RIGHI$(A$,29) +LEFT$(A$,1 ) 

PRINT S 

S=S-1 

IF S>0 THEN 150 

Q=1 

PRINT"'UW TIJD IS VERSTREKEN" 

IF Q=0 THEN PRINT"U HEBT GEWONNEN" 

PRINT'"'UW SCORE IS';S 

END 

X=P 

FOR Y=16 TO L STEP-1 

LOCATE X,Y:PRINT"',"' 
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420 FOR V=1 TO 100:NEXT V 
430 LOCATE X,Y:PRINI'' ' 


440 NEXT Y 
450 B$=MID$(A$,X+1,1) 
460 IF B$=" " THEN GOTO 510 


470 PLAY"O4V12F"' 

480 AS=LEFTS$(A$,X) +C$4MIDS(A$,X+2) 
490 5=S+10 

500 IF RND(-TIME)>.8 THEN S=S+50 
505 LeL-1 

510 RETURN 

520 END 

530 FOR N=224 TO 225 

540 FOR M=0 TO 7 

550 READ A$ 

560 VPOKE N*8+M,VAL("&r"+A$) 

570 NEXT M 

580 NEXT N 

590 RETURN 

600 REM KARAKTERS 224 EN 225 

610 DATA 00,18,3C,7E,FF,FF,EF,FF 
620 DATA 3C,7E,FF,FP‚,C3,C3,C3,C3 
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EENENTWINTIGEN 


EENENTWINTIGEN is een razend populair kaartspel, dat 
in deze simpele MSX-versie al net zo verslavend werkt als 
het origineel. Het doel van het spel is om 21 punten te 
verkrijgen of een totaal dat daar zo dicht mogelijk mogelijk 
in de buurt ligt. U mag de 21 niet overschrijden want dan 
bent u ’dood’ of ‘kapat’ en wint de bank. 


U begint. De computer (de bank) toont u de eerste kaart, 
waarna u beslist of u nog een kaart wilt hebben (u moet er 
in ieder geval twee krijgen). Als u past, is het de beurt van 
de computer. De telling is als volgt: een aas is (naar keuze) 
1 of 1 punten, plaatjes (heer, vrouw en boer) zijn 10 punten 
en de 9, de 8 en de 7 houden hun eigen waarde. Wanneer 
een aas u kapot zou maken, wordt automatisch de waarde 
1 aangenomen. 


10 REM EENENIWINIIGEN 

20 KEY OFF 

30 M$=""T20003L4BAGFEDC2."! 
40 B=1 


90 PRINT: PRINT: PRINT 
100 PRINT"'UW BEURT"; PRINT 

110 GOSUB 340 

120 H=H4AT 

130 IF H>21 THEN GOTO 290 

140 FOR Z=1 TO 100:NEXT 2 

150 PRINT"WILT U NOG EEN KAART J/N" 


77 


160 A$=INKEY$ 

170 IF A$="3" OR A$="" THEN GOTO 110 
180 IF A$<"N" AND A$<>''n' THEN 160 
190 PRINI"U HEBT ';Hs PRINT 

200 PRINT"MIJN BEURT": PRINT 

210 A=0 

220 FOR Z=1 TO 50O:NEXT Z 

230 GOSUB 340 

240 C=C4T 

250 IF C>21 THEN GOIO 320 

260 IF C<H THEN GOTO 220 

270 PRINT"IK WIN MET ";C 

280 GOTO 430 

290 PRIND'U BENT KAPOT" 

300 PLAY M$ 

310 GOTO 430 

320 PRINT'IK BEN KAPOT" 

330 GOTO 430 

340 X=INT(RND( TIME) *12+1 ) 

350 X$-MID$("A23456789TEDK",X,1) 
360 PRINT X$ 

370 IF X>10 THEN X=10 

380 IF X>1 THEN GOIO 410 

390 X=11 

400 IF H+X>21 THEN X=1 

410 T=V+X 

420 RETURN 

430 PRINT"'NOG EEN SPELLETJE J/N " 
440 A$=INKEY$ 

450 IF A$="J" OR A$=""j"" THEN RUN 
460 IF A$="N" OR A$='"n" THEN END 
470 GOIO 440 


78 


ZAP 


ZAP is een spel met een thuisbasis van waaruit u indringers 
moet tegenhouden. Het doel van het spel is indringers die 
op u afkomen te ‘zapper, oftewel uit te schakelen. De 
immer alerte MSX vuurt indringers op u af die u kunt 
onderscheppen met raketten. Deze zijn te besturen met 
behulp van de cursortoetsen. Zowel de thuisbasis als de 
projectielen zijn verplaatsbaar. In totaal worden tien 
indringers op u afgestuurd en aan het einde van het spel 
krijgt u te zien hoeveel daarvan zijn vernietigd en hoeveel er 
ondanks uw inspanningen op aarde zijn geland. 
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20 
30 


400 
410 
420 


REM ZAP 
KEY OFF:CLS 

SCREEN 1 

GOSUB 390 

S=0 

M=14 

FCR Z=1 TO 10 

C=20 

R=INT(RND(1)*3) 

Pel3-(12 AND R=0)+(12 AND R=2)+INT(RND(1)*5) 
FOR X=1 TO 30 

LOCATE X,22:PRINT''-"'; 

NEXT X 

FOR H=4 TO 21 

IF R=0 THEN P=P+1 

IF R=2 THEN P=P-1 

D=STICK(0) 

IF D=3 THEN M=M+1 

IF D=7 THEN M=M-1 

N=M-1 :Q=P-1 

LOCATE N,21:PRINT CHR$(224) : LOCATE Q, H: PRINT 
CHR$(225) : LOCATE M,C:PRINT CHR$(226) 

FOR I=1 TO 100:NEXT I 

IF C=H AND (M>P-2) AND (M<P) THEN GOTO 320 
LOCATE N,21:PRINT'" ": LOCATE Q,H: PRINT" ";LOCATE M‚C: 
PRINT" " 

C=C1 

NEXT H 

PLAY''O5V1 2FDE" 

FOR Q=1 TO 50:NEXT Q 

CLS:NEXT Z - 
LOCATE 4,4:PRINT"'GELAND:"';10-S;'' GESTOPT: '';S 
END 

S=S+1 

G=H-1 

LOCATE P,G:PRINT'*!!; PRINTTAB( P-1 } "kk! PRINTTAB(P) "EH" 
PLAY '"S1105F2" 

FOR B=1 TO 50:NEXT B 

GOTO 280 

FOR N=224 TO 226 

FOR M=0 TO 7 

READ A$ 

VPOKE N*8+M,VAL("&B''+A$) 
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430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 


NEXT M 

NEXT N 

RETURN 

REM KARAKTER 
DATA 00011000 
DATA 00011000 
DATA 00011000 
DATA 00011000 
DATA 00011000 
DATA 00111100 
DATA 01111110 
DATA 11111111 
REM KARAKTER 
DATA 00111100 
DATA 01111110 
DATA 11111111 
DATA 11100111 
DATA 11100111 
DATA 11100111 
DATA 11100111 
DATA 11100111 
REM KARAKTER 
DATA 00011000 
DATA 00011000 
DATA 00011000 
DATA 00011000 
DATA 00111100 
DATA 01111110 
DATA 00111100 
DATA 00011000 


224 


225 


226 
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OMSINGELD 


U bent de commandant van een ruimteschip, dat zich 
beweegt in een rooster van 7 « 7 hokjes. U moet uw schip 
verdedigen tegen een aantal buitenaardse ruimteschepen. 
Deze schepen overwinnen u wanneer ze u zo kunnen 
omsingelen dat u zich niet meer kunt verroeren. Om zelf te 
winnen moet u 47 vijandelijke schepen vernietigen in 
minder dan 50 zetten. U kunt in alle richtingen bewegen, 
alleen niet diagonaal. U beweegt door het nummer in te 
toetsen van het vakje waar u heen wilt (bijvoorbeeld 23). Als 
u over een vijandelijk schip heen springt, wordt dat 
vernietigd. 


De DATA van het ruimteschip staan in de regels 970-1060 en 
die van de vijandelijke schepen in de regels 1070-1140. 
Pogingen om vals te spelen worden onmiddellijk ontdekt 
door de routine in de regels 300-360. Regel 340 kijkt of een 
vijandelijk schip wordt vernietigd en zorgt voor een 
muziekje als dat het geval is. 
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20 


230 
240 
250 
270 
280 
290 
300 
310 


320 
325 


330 
340 
350 
360 
370 
380 
390 
400 


REM OMSINGELD 

KEY OFF 

CLS 

SCREEN 1 

GOSUB 900 

GOSUB 600 

GOSUB 110 

GOSUB 380 

GOSUB 110 

GOTO 70 

REM BEWEGINGEN COMPUTER 

Y=0:P=P+1 

K=INT(RND(—TIME) *63+1 3) 

Y=Y+1 

IF H(K)<>120 THEN GOTO 130 

del 

IF H(K+2(J))=45 THEN GOTO 220 

J=J+1 

IF J<3 THEN GOIO 170 

IF Y<100 THEN 130 

PRINT''DE ENTERPRISE HEEFT GEWONNEN": END 
H(K)=453H(K+Z(J) )=120 

RETURN 

REM BEWEGINGEN SPELER 

REM DE SPELER TIKT 99 IN OM TE STOPPEN 

Q=OM 

LOCATE 0,17: INPUT"DE ENTERPRISE BEWEEGT NAAR'';L 
IF L=99 THEN 750 

R=ABS(L-Q):IF R=22 THEN 

IF R=9 OR R=11 OR R=18 OR R=29 THEN PRINT"'EEN DIAGONALE 
BEWEGING IS NIET TOEGESTAAN'' 

IF H(Q)<>84 OR H(L)<>45 THEN PRINT'"'NIET TOEGESTANE 
BEWEGING" 

IF H(Q)<>84 OR H(L)<>45 OR R=9 OR R=11 OR R=18 OR R=29 
THEN GOTO 280 

H(Q)=455H(L)=84 

IF R=20 OR R=2 THEN H((L+Q)/2)=45:5=S+1 :PLAY"O3V1 5E!" 
OM=L, 

RETURN 

REM PRINT BORD 

CLS 

PRINT 

LOCATE 8,0:PRINI""BEWEGING NO. '';P 
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410 IF K=0 OR K+2(J)=10 OR K=K+Z(J) THEN 430 
420 PRINT 

430 PRINT 50-P;'"BEWEGING 
440 PRINTTAB(3) ; "1234567" 
450 FOR J=70 TO 10 STEP -10 


OVER''; PRINT 


460 A=H(J+1) :B=H(J+2) 3C=H(J+3) :D=H(J+4) sE=H(J+5) :F=H(J+6) : 
G=H(J+7) 
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470 PRINT J/10; 

480 GOSUB 850:PRINT CHR$(A) ; :A=B:GOSUB 850:PRINT 
CHR$ (A) ; :A=C:GOSUB 850: PRINT CHR$ (A) ; :A=D: GOSUB 
850: PRINT CHR$(A) ; :A=E:GOSUB 850: PRINT 
CHR$(A) ; :A=F:GOSUB 850:PRINT CHRS$(A) ; :A=G:COSUB 
850:PRINT CHRS$(A) 

490 NEXT J 

500 PRINTTAB(3)'1234567"' 

510 PRINT 

520 IF P=>50 THEN 740 

230 PRINT'NOG ';17-5;'' VIJANDELIJKE SCHEPEN TE VERNIETIGEN' 

540 IF S=17 THEN 210 

550 GOSUB 240 

560 IF K=0 THEN 580 

570 RETURN 

580 FOR J=1 TO 1000:NEXT J 

590 RETURN 

600 REM INITIALISATIE 

610 CLS 

620 DIM H(100),2(5):K=0:S=0:P= 

630 FOR J=1 TO 3:READ Q:2(J)=O:NEXT 3 

640 J=15L=100 

650 FOR A=1 TO 87 

660 H(A)=46 

670 IF A>72 AND A<76 OR A>62 AND A<66 OR A>51 AND A57 OR 
A>41 AND A<47 THEN H(A)=45 

680 IF A=51 OR A=41 OR A=57 OR A=47 THEN H(A)=120 

690 IF A>30 AND A<38 CR A>22 AND A<26 OR A>12 AND A<16 THEN 
H(A)=120 

700 NEXT A 

710 H(44)=84 

720 QM-84 

730 RETURN 

740 PRINT"UW TIJD IS VERSIREKEN" 

750 PRINT"HET AANTAL VIJANDEN IS ";17-S 

760 PRINT 

770 PRINT''NOG EEN SPELLEIJE (J/N) 

780 A$=INKEY$ 

790 IF Ag="7"" OR A$="j"" THEN RUN 

800 IF Ag="N"! OR A$='"n" THEN GOIO 810 ELSE GOTO 780 

810 PRINT:PRINI"'IK BEN BLIJ DAT U WEET WANNEER U VERSLAGEN BENT" 

820 PRINT 

830 PRINT"'ENTERPRISE! !" 
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840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
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END 

IF A=84 THEN A=225 
IF A=46 THEN A=32 
IF A=45 THEN A=46 


IF A-120 THEN A=224 
RETURN 

FOR N=224 TO 225 

FOR M=0 TO 7 

READ A$ 

VPOKE N*8+M,VAL("&B"+A$) 
NEXT M 

NEXT N 

RETURN 

REM KARAKTER 224 


DATA 01111000 
DATA 01111000 
DATA 11111100 
DATA 11001100 
DATA 11001100 
DATA 11001100 
DATA 11001100 
DATA 11001100 
REM KARAKTER 225 
DATA 00001110 
DATA 00001110 
DATA 00011000 
DATA 00011000 
DATA 00011000 
DATA 00011000 
DATA 11111110 
DATA 11111110 
REM DATA VOOR CONTROLE OP BEWEGINGEN 
DATA 10,1,-1 


BEURSPLEIN 5 


In dit programma, gebaseerd op een oorspronkelijk idee 
van Alastair Gourlay, kunt u fortuin maken op de beurs. U 
start met een beperkte som geld waarmee u een kleine 
aandelenportefeuille kunt opbouwen in vier 
ondernemingen. Na aankoop van de eerste aandelen kunt 
u beginnen deze te verhandelen, waarbij u de eventuele 
winst kunt gebruiken voor de aanschaf van nieuwe 
aandelen. Zo kunt u uw aandelenkapitaal langzaam maar 
zeker vergroten. 


Net als in de werkelijkheid zijn er ook een aantal risico's 
verbonden aan de handel in aandelen. De prijzen van 
aandelen fluctueren en de beurs kan instorten. Als u niks 
meer kunt kopen op de vrije markt, wordt u bankroet 
verklaard en wanneer u aandelen tracht te verkopen die u 
niet bezit, maakt de almachtige computer een einde aan uw 
veelbelovende carrière met de mededeling FRAUDE. 


Een transactie verricht u door het nummer in te toetsen van 
de firma waarin u bent geïnteresseerd, gevolgd door een 
positief aantal om aandelen te kopen of een negatief getal 
om te verkopen. Wilt u een beurt afwachten, dan drukt u 
alleen op RETURN. 


De uitgangsprijzen van de aandelen worden bepaald in de 
regels 110-140 en regel 340 past hun waarde aan de situatie 
op de wereldmarkt aan. In regel 380 wordt bepaald dat de 
markt ongeveer één keer per 20 ronden instort. 
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REM BEURSPLEIN 5 

KEY OFF;CLS 

SCREEN 0 

LOCATE 13,9 

PRINT"DE BEURS" 

FOR Z=1 TO 1000:NEXT Z 

Xd 

I=10 

B=1000 

DIM A(4,5) 

FOR A=1 TO X 

LET A(1,A) =INT( (A+RND(-TIME) )*250) 

LET A(3,A)=0 

NEXT A 

CLS 

PRINT: PRINT': PRINT ‚ 
PRINI'FA, U HUIDIGE AANKOOP WINST" 
PRINI"'NO. BEZIT PRIJS PRIJS VERLIES" 


FOR A=1 TO X 

LET Z=Al1,A)-A(3,A) 

PRINT TAB(1); A; TAB(X+2) ;A(2,A) ;TAB(12) ;A(1,A) ;TAB(21) ; 
A(3,A) ;TAB(30) ;Z 

NEXT A 

PRINT 

PRINT "BANK '"';B;"" RENIE:'';I 

PRINT 

INPUT "WELKE FIRMA (1-4)"';A 


INPUT "AANTAL AANDELEN — NEGATIEF IS VERKOPEN'';C 
IF C>0 THEN A(3,A)=A(1,A) 

B=B-C*A(1,A) 

IF B<=0 THEN GOIO 430 

A(2,A)=A(2,A)+C 

IF A(2,A)<O THEN GOTO 450 

FOR A=1 TO X 

A(1 ,A)=INT(ABS(A(1 ,A) +A*50*(RND(-TIME) -RND(-TIME) ) )) 
NEXT A 

T=INT(ABS( T+RND(-TIME) *8-X) +1 ) 

B=INT(B+B*I/100) 

IF RND(-TIME)*10>.5 THEN GOTO 150 

PRINT "DE BEURS STORT IN" 

PRINT"U HEBT NOG '';B;'" OP DE BANK" 

END 

P=A(2,1)+A(2,2)+A(2,3)-1000 
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430 PRINT''BANKROET" 


450 PRINT''FRAUDE' 
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ZANDVOORT 


Overleef 10 ronden op deze racebaan en u wint. De 
racewagen beweegt automatisch over het parcours, waarbij 
u alleen hoeft te sturen met de cursortoetsen OMHOOG en 
OMLAAG. De racewagen wordt voorgesteld door karakter 
42 (+, de asterisk). 


ledere ronde wordt de baan willekeurig opgebouwd (regel 
140 zorgt voor een random Y-waarde). Mocht u 
verongelukken, dan wordt levensecht het effect van een 
crash opgeroepen door de geluidsroutine vanaf regel 350. 
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10 


REM ZANDVOORT 
WIDTH 35 

CLS: KEY OFF 

D=STICK(0) 

N=10 

FOR T=1 TO N 

CLS 

PRINT: PRINT: PRINT 

LOCATE 2,20: PRINT"'RONDE"; T 
Y=5 

FOR X=0 TO 35 

COLOR ,3 


LOCATE X,YsPRINT CHR$(194);:LOCATE X,Y+4: PRINT CHR$(194) 


Y=Y+INT(RND( -TIME)*3) —1 
IF Y>N-1 THEN Y=N-3 
NEXT X 

Y=7 

FOR X=1 TO 500:NEXT X 
Z=282 

FOR Q=0 TO 35 

COLOR 15 

R=Z 

D=STICK (0) 

IF D=1 THEN Z=Z-40 

IF D=5 THEN Z=Z+40 
D=0:Z=Z41 

FOR S=1 TO 300:NEXT 

IF VPEEK(Z)=194 THEN GOTO 350 
VPOKE Z,42 

VPOKE R,32 

NEXT Q 

NEXT T 


LOCATE 0,20:PRINI''U HEBT HET VOOR ELKAAR GEKREGEN" 


END 
SOUND 7,62 
SOUND 1,15 
SOUND 11,0 
SOUND 0,80 
SOUND 8,16 
SOUND 13,9 
SOUND 12,60 
SOUND 11,0 
LOCATE 0,20:PRINT''U BENT VERONGELUKT" 
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PAARDESPRONG 


PAARDESPRONG is een vrij simpel spel dat wordt 
gespeeld op een bord van 7*7 vakjes. U hebt 7 paarden 
(vandaar de naam van het spel) tot uw beschikking die net 
zo springen als in het schaakspel. De computer werpt een 
dobbelsteen die bepaalt met welk stuk u een zet moet doen 
en daarna doet hij hetzelfde voor zichzelf. Alle paarden 
bewegen op dezelfde manier als in het schaakspel en vals 
spelen wordt niet toegestaan. Een stuk wordt geslagen door 
met een ander paard naar het vakje te springen waarop het 
zich bevindt. De eerste speler die 5 stukken van de 
tegenstander slaat, wint. 


U beweegt het aangewezen stuk door de computer te 
vertellen naar welk vakje u wilt springen. Het bord is 
rondom genummerd. Voer eerst het nummer van de zijkant 
in gevolgd door het nummer aan de bovenkant 
(bijvoorbeeld 6,4 om uw paard op vakje 64 te krijgen). 
Probeert u vals te spelen, dan wordt u zeer snel 
terechtgewezen. Opgeven kan te allen tijde door het getal 
99 als zet op te geven. 


Het programma 


Het programma PAARDESPRONG is opgebouwd uit een 
kort hoofdprogramma met een aantal subroutines. 
Hieronder bespreken we de verschillende routines en hun 
functie. 


regel 30-100 het hoofdprogramma 


regel 120-280 de routine waardoor de speler een stuk 
kan bewegen 


regel 290-490 dezelfde routine, maar dan om de 
computer een zet te laten doen 


regel 500-540 slaat de computer een van uw stukken, 


dan wordt de score verhoogd en wordt 
er een melodietje gespeeld 
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regel 560-720 


regel 730-790 


regel 800-990 


regel 1000-1040 


regel 1050-1090 


regel 1100-1130 


deze subroutine zorgt ervoor dat het 
bord elke keer opnieuw wordt getekend 


de eindroutine; deze routine bevat vier 

mogelijke manieren om het spel te 

beëindigen: 

— de speler verslaat de computer door 5 
stukken te slaan (regel 750) 

— de computer verslaat de speler door 5 
stukken te slaan (regel 760) 

— de speler geeft op door het getal 99 in 
te typen (regel 210) 

— de computer houdt er mee op omdat 
hij na 500 keer proberen nog geen 
vakje met een stuk van de speler 
heeft gevonden (regel 340) 


worden alle variabelen geïnitialiseerd en 
in de regels 940-970 worden de waarden 
ingelezen die de computer nodig heeft 
om te bepalen of een zet geldig is 


deze kleine routine zorgt voor een geluid 
en voor een melding op het scherm 
wanneer er een ongeldige zet is gedaan 
zet de scores op het scherm 


zorgt voor een melodietje wanneer de 
speler een stuk van de computer slaat 
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10 
15 
20 


REM PAARDENSPRONG 

REM (C) HARTNELL 

GOSUB 810 

REM HOOFDLUS 

GOSUB 560 

IF HU=5 OR CO=5 THEN GOTO 740 
GOSUB 300 

GOSUB 560 

IF HU=5 OR CO=5 THEN GOTO 740 
GOSUB 130 


M=INT(RND(- TIME) *66+11 ) 

Q=0+1 

IF Q=500 THEN GOIO 740 

IF H(M)<>72 THEN 150 

FOR Z=1 TO 1000:NEXT Z 

LOCATE 0,14:PRINI''U MOET HET STUK OP'';M; "BEWEGEN k 
INPUT N:P=0:IF N=99 THEN Q=500:GOTO 740 
CT=1 

IF M+Z(CT)=N THEN P=1 

IF CT<8 THEN CT=CT+1:GOTO 230 

IF P=0 THEN GOSUB 1010:GOTO 210 

IF H(N)=67 THEN HU=HU+1 :GOSUB 1110 
H(M)=197:H(N)=72 

RETURN 

REM *tod 

REM COMPUTER BEWEEGT 

Q1=0 

Q1=01+1 

K=INT(RND(-TIME) *66+11 ) 

IF Q1=500 THEN GOTO 560 

IF H(K)<>67 THEN 320 

FOR Z=1 TO 1000:NEXT Z 

LOCATE 0,14:PRINT'IK MOET HET STUK OP!';K; "BEWEGEN! 
FOR Z=1 TO 1000:NEXT Z 

wel 

IF K+Z(W)<11 OR K+Z(W)>77 THEN 420 

IF H(K+Z(W))=72 THEN GOSUB 510:GOTO 470 
IF W<8 THEN W=W+1:GOTO 400 
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430 W=1 

440 IF (K+Z(W)<11 OR K+Z(W)>77) AND W<8 THEN W=W+1:GOTO 440 

450 IF H(K+Z(W))<>197 AND W<8 THEN W=W+1:GOTO 450 

460 IF W=8 AND H(K+Z(W))<>197 THEN Q1=500:GOTO 740 

470 X=K:Y=K+Z(W) 

480 H(X)=197:H(Y)=67 

490 RETURN 

500 REM %*ttorekrkkk 

510 REM WINPROCEDURE 

520 CO=CO+1 

530 PLAY'"T1 2004V8EDF'"' 

540 RETURN 

550 REM *ertoroksekskokkkkkkk 

560 REM TEKEN HET BORD 

570 GOSUB 1060 

580 PRINTTAB(8)'1 2 3 456 7" 

590 PRINTIAB(T) "ee W 

600 FOR M=70 TO 10 STEP —10 

610 PRINTTAB(5) M/10; 

620 FOR N=1 TO 7 

630 IF H(M+N)=197 THEN PRINT CHR$(197) ;CHR$(32) ; 

640 IF H(M+N)=67 THEN PRINT "*"';CHR$ (32); 

650 IF H(M+N)=72 THEN PRINT "$";CHR$(32) ; 

650 NEXT N 

670 PRINT M/10 

680 NEXT M 

690 PRINITAB(7)''---—--- or 

700 PRINITAB(8)'1 2 3 4 56 7" 

710 PRINT SPC(200) 

720 RETURN 

730 REM *tetrskkkekekokkk 

740 REM EINDROUTINE 

750 IF HU=5 THEN LOCATE 0,15:PRINI"U HEBT MIJ 
VERSLAGEN 8 

760 IF CO=5 THEN LOCATE 0,15:PRINT"ALWEER EEN OVERWINNING 
VAN DE MSX" 

770 IF Q=500 THEN LOCATE 0,17:PRINT"IK AANVAARD UW WENS OM 
OP TE GEVEN ik 

780 IF Q1=500 THEN LOCATE 0,17:PRINT"IK VERLIES HET SPEL VAN 
EEN MEESTER" 

790 END 

800 REM **keteennk 


810 REM INITIALISATIE 
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820 
830 
840 
850 
860 
870 
880 


890 


900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 


KEY OFF:CLS 
X=0:Q1=05Q=0 
CLS 


HU=0:CO=0:REM SCORE 
DIM H(99),2(8) 
FOR A=1 TO 99 
IF A>77 OR A=70 
OR A=58 OR A=40 
IF A=30 OR A=38 A= 
OR A=19 OR A<11 THEN 
H(A)=197 

IF A>70 AND A<78 THEN H(A)=67 
IF A>10 AND A<18 THEN H(A)=72 


OQ OR A=68 OR A=6 OR A=50 OR A=59 
9 OR A=48 THEN 930 
9 
3 


228 


OR A=20 OR A=28 OR A=29 OR A=18 


DATA -8,-21,-12,-19,19,12,21,8 

RETURN 

REM okokokokokokokokkokokokokesksinkk 

REM CONTROLE OP ILLEGALE ZETTEN 

LOCATE 0,16:PRINT"NEE, NEE EN NOG EENS NEE!!!" 
PLAY'"T1 2004V8FDE" 

RETURN 

REM tort 

REM SCORE 

LOCATE 0,0 

PRINT"! MIJN SCORE IS'';CO;"'UW SCORE IS'';HUsPRINT 
RETURN 

REM seokeokokeoksfenojenk koko kenkoknk 

REM GELUID BIJ HET SLAAN VAN EEN STUK 
PLAY"T40O4V8FDE'' 

RETURN 
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TEBAFLA 


TEBAFLA (ALFABET), oorspronkelijk een spelletje van 
Ralph Hofman, nu ook bewerkt voor de MSX. Bij dit spel 
gaat het erom het alfabet op een wel zeer merkwaardige 
Wijze achterstevoren op te zeggen. 


U moet namelijk achtereenvolgens intoetsen: 
A, BA, CBA, DCBA enzovoort. 


Zodra u een foutieve letter invoert, is uw beurt voorbij. Wie 
houdt het het langste vol? 


10 REM TEBAFLA 
20 CLS:KEY OFF 

30 SCREEN 0 

40 CLS:C=C41 

50 B$="ZYXWVUISROPONMLKJIHGFEDCBA' 

60 C$=RIGHT$(B$,C} 

70 REM INVOER 

80 LOCATE 0,10: INFUT"TEBAFLA'";A$ 

90 IF ASC(A$)>96 THEN PRINI"U MOET DE !CAP' TOETS 

INDRUKKEN''s GOTO 50 

100 IF A$4>C$ THEN 130 

110 IF C=90 THEN 160 

120 GOTO 40 

130 REM FOUT 

140 PRINT"FOUT, HET IS ";C$ 
150 GOTO 180 

160 REM GOED 

170 PRINT'"'GELUKT" 

180 END 
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SKIËN 


De bedoeling van dit behendigheidsspelletje is zo lang 
mogelijk op uw ski's te blijven staan. Dit programma zet een 
piste op het scherm uit, maar die blijft niet steeds hetzelfde. 
Van de toevalsfunctie AND wordt gebruik gemaakt om het 
uiterlijk van de baan te wijzigen. Zodra u een van de randen 
raakt, maakt u een lelijke schuiver en ís het aan uw 
tegenstander om uw prestatie te verbeteren. Na die twee 
afdalingen verschijnt de uitslag op het scherm waar u 
beiden met spanning op zit te wachten. Opdat de verliezer 
zich kan revancheren of opdat de winnaar zijn voorsprong 
uit kan bouwen, vraagt de computer beleefd of de 
sportliefhebbers zin hebben in een volgende ronde. 
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REM SKIEN 
KEY OFF:SCREEN 1 


DIM S(2) 

P=1 

S(1)=0 

s(2)=0 

ER=10 

LOCATE 0,5 

PRINT "VOER DE NAMEN VAN DE SPELERS IN" 
PRINT ' AUB'' 
PRINT 

PRINT '1-STE SPELER: "; 
INPUT P1$:PRINT 

PRINT ''2-E SPELER: ''; 
INPUT P2$:PRINT 

FOR Z=1 TO 50:NEXT Z:CLS 
LOCATE 0,5 

PRINT P1$;'" BEGINT" 
PRINT 

GOTO 310 

PRINT 

PRINT NU '"';P1S 

GOTO 310 

PRINT 

PRINT ''NU '';P2$ 

GOTO 310 

L=14 

A=L+INT(BR*.5) 

R=L+BR 


PRINT "DRUK OP SPATIEBALK OM TE STARTEN: 
A$=INKEY$ 

IF A$="" '" THEN GOTO 400 

GOTO 370 

IF LN/5-INT(LN/5)=0 THEN 430 


PRINT TAB(L);'"|";TAB(A) ;CHR$ (223) ;TAB(R) ;"" |" 


GOTO 440 


PRINT IN;TAB(L) ;""|";TAB(A) ;CHR$(223) ;TAB(R) ;"' |" 


440 X=RND(-TIME) 

450 IF X<.5 THEN LeL-1 

460 IF X<,1 THEN LeL-1 

470 IF X>=,5 THEN L=L+1 

480 IF X>.9 THEN L=L+1 

490 IF L+BR>28 THEN L=L-1 

500 IF L<1 THEN L=0 

510 R=L+BR 

520 LN=LN+1 

530 D=STICK(O) 

540 IF D=7 THEN A=A-1 

550 IF D=3 THEN A=A+1 

560 IF A<=L THEN 600 

570 IF A>=R THEN 620 

580 IF A<O THEN A=0 

590 GOTO 400 

600 PRINT IN;TAB(L) ;'** BATS"; TAB(R) ; "|" 

610 GOTO 640 

620 PRINT LN;TAB(I) 3" |'';TAB(R-5) ; "BATS *' 
630 GOTO 640 

640 PRINT:PRINT:PRINT "BOTSING OP REGEL ';IN 
650 PRINT 

660 S(P)=LN 

670 PRINT "SCORE ";P1$;"': ";S(1);"" METER! 
680 PRINT "SCORE ";P2$;'': '";S(2);'' METER" 
690 GOTO 820 

700 REM EINDROUTINE 
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710 COLOR 15,2 

720 IF S(1)<S(2) THEN GOTO 740 
730 PRINT P1$;'' HEEFT GEWONNEN" 
740 PRINT P2$;'' HEEFT GEWONNEN! 
750 PRINT 

760 PRINT "WIL JE NOG EEN SPEL (J/N)" 
770 A$=-INKEY$ 

780 IF A$="J" THEN RUN 

790 IF A$="N"" THEN END 

800 GOTO 770 

810 END 

820 REM SPELERSWISSELING 

830 IF P=1 THEN P=2:GOTO 280 
840 IF P=2 THEN GOTO 710 


850 END 

860 CLS 

870 PRINT:PRINT: PRINT: PRINT; PRINT 
875 PRINT " kk okt 

880 PRINT "kk kkk tek xn 
890 PRINT "* xk * Kk ld 
900 PRINT "'* x % % * kk kt 
910 PRINT "st kkk kk kN 
920 PRINT "  * * * * hd 
930 PRINT " * ok Ld kad xn 


940 PRINT "lek ok ok ok sek kk 
950 PRINT: PRINT sPRIN: PRINT 

960 PRINT "(C) 1986 LINE UP" 

970 PRINT:PRINT:PRINT: PRINT 

980 PRINT "WIL JE INFORMATIE (J/N)" 
990 A$=INKEY$ 

1000 IF Ag="N" THEN GOTO 1030 

1010 IF A$="J"" THEN 1040 

1020 GOTO 990 

1030 RETURN 

1040 CLS:PRINT "ER IS HELAAS GEEN INFORMATIE" 
1050 FOR Z=1 TO 50:NEXT Z 

1060 RETURN 

1070 END 

1080 FOR N=223 TO 223 

1090 FOR M=0 TO 7 

1100 READ A 

1110 VPOKE N*8+M,A 

1120 NEXT M 

1130 NEXT N 

1140 RETURN 

1150 DATA 56,16,124,146,40,40,80,0 
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EEUWIGDURENDE KALENDER 


Natuurlijk heeft u zich wel eens afgevraagd op welke dag u 
eigenlijk bent geboren. De datum weten de meesten wel, 
maar onderzoek heeft aangetoond dat de dag van de week 
nogal wat problemen oplevert. Wij willen met u wedden dat 
u niet weet op welke dag van de week Gaius Julius Caesar 
de Rubicon overtrok en de legendarische woorden ’alea 
iacta est’ sprak. En wie weet er nou eigenlijk op welke dag 
Winston Churchill premier van Engeland werd, Columbus 
de nieuwe wereld ontdekte of Neil Armstrong zijn eerste 
schuchtere sprongetjes op de maan deed. Het enige dat u 
hoeft te doen is de datum in te toetsen, dan regelt de 
computer de rest. Maar pas op! Niet alle data leveren 
automatisch een dag op. Wie de geschiedenis goed kent, 
weet dat de jaartelling op een gegeven moment is 
aangepast en dat er een aantal dagen zijn overgeslagen. 
Voert u een van die data in, dan vertelt de computer u dat 
de betreffende datum niet bestaat. Verder accepteert de 
computer alleen jaartallen na het jaar 0. 
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GOSUB 7000 


PRINT'"'DIT PROGRAMMA BEPAALT DE WEEKDAG VOOR ELKE WILLEKEURIGE 


DATUM NA HET JAAR NUL." 


PRINT"'DE DATUM MOET WORDEN INGEVOERD ALS DRIE GETALLEN, 


GESCHEIDEN DOOR RETURNS ,'' 


PRINT"'BIJVOORBEELD 26 <REIURN> 8 <RETURN> 1963 <RETURN? ."' 


PRINT"'VOER DE GEWENSTE DATUM IN: 
INPUT D‚M,Y 

IF D<=0 THEN GOTO 2000 

IF M<=0 THEN GOTO 2000 

IF Y<=0 THEN GOIO 2000 

IF INT(D)<>D THEN GOTO 2000 

IF INT(M)<>M THEN GOTO 2000 

IF INT(Y)<>Y THEN GOTO 2000 

IF D>31 THEN GOTO 2000 

IF M>12 THEN GOTO 2000 

IF M=4 THEN GOTO 2100 

IF M=6 THEN GOTO 2100 

IF M=9 THEN GOTO 2100 

IF M=11 THEN GOTO 2100 

IF INP(Y/4)=Y/4 THEN GOTO 1300 
LET L$="N" 

GOTO 1400 

IF INT(Y/100)<>Y/100 THEN GOTO 1350 
IF Y<1582 THEN GOTO 1350 

IF INT(Y/400)=Y/400 THEN GOTO 1350 
LET L$=!"N" 

GOTO 1400 

LET L$="Y" 

IF L$="N"" THEN GOIO 1450 

IF M<>2 THEN GOTO 3000 

IF D>29 THEN GOTO 2000 

GOTO 3000 

IF M<>2 THEN GOTO 3000 

IF D>28 THEN GOTO 2000 

GOTO 3000 


PRINT'"DE INGEVOERDE DATUM IS NIET CORRECT. BEGIN OPNIEUW! 


PRINT 

GOTO 40 

IF D=31 THEN GOTO 2000 
LET E=INT(Y/100) 

LET J=Y-100*E 

IF E<15 THEN GOTO 3500 


103 


3030 IF E=15 THEN GOTO 3600 

3040 IF E/4<>INT(E/4) THEN GOTO 3070 
3050 LET R=6 

3060 GOTO 4000 

3070 LET R=7-(2*(4-(E-(4*INT(E/4)) ))) 
3080 GOTO 4000 

3500 LET R=E-(7*INT(E/7))+1 
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3510 GOTO 4000 

3600 IF J<82 THEN GOTO 3500 

3610 IF J>82 THEN GOTO 3040 

3620 IF M<10 THEN GOTO 3500 

3630 IF M>10 THEN GOTO 3040 

3640 IF D<5 THEN GOIO 3500 

3650 IF D>14 THEN GOIO 3040 

3660 PRINT'"IN 1582 BESTAAN 5 T/M 14 OKTOBER NIET. VOER EEN 
CORRECTE DATUM IN:" 

3670 GOTO 1000 

4000 LET Z=5*INT(J/4+(J-A*INT(J/4))+1 

4010 LET C=2-7*INT(2/7) 

4020 LET G=(C-1)+(7-R) 

4030 IF G>6 THEN GOTO 4050 

4040 GOTO 4060 

4050 LET G=G-7 

4060 IF G=0 THEN GOTO 4080 

4070 GOTO 4090 

4080 LET G=7 

4090 LET R=G 

4100 IF L$="N" THEN GOTO 4200 

4110 IF M=1 THEN GOTO 4150 

4120 IF M=2 THEN GOTO 4170 

4130 GOTO 4300 

4150 LET C=6 

4160 GOTO 4300 

4170 LET C=2 

4180 GOTO 4300 

4200 IF M=1 THEN GOTO 4250 

4210 IF M=2 THEN GOTO 4270 

4230 GOTO 4300 


4250 LET C=7 

4260 GOTO 4300 

4270 LET C=3 

4300 IF M=3 THEN GOTO 4500 
4310 IF M=4 THEN GOTO 4520 
4320 IF M=5 THEN GOTO 4540 
4330 IF M=6 THEN GOTO 4560 
4340 IF M=7 THEN GOTO 4580 
4350 IF M=8 THEN GOTO 4600 
4360 IF M=9 THEN GOTO 4620 
4370 IF M=10 THEN GOTO 4640 
4380 IF M=11 THEN GOTO 4660 
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4390 IF M=12 THEN GOTO 4680 
4400 GOTO 5000 

4500 LET C=3 

4510 GOTO 5000 

4520 LET C=6 

4530 GOTO 5000 

4540 LET C=1 

4550 GOTO 5000 


4 
RÁ 


4560 
4570 
4580 
4590 
4600 
4610 
4620 
4630 
4640 
4650 
4660 
4670 
4680 
5000 
5010 
5020 
5030 
5040 
5050 
5060 
5070 
5080 
5090 
5100 
5110 
5120 
5130 
5140 
5150 
5160 
5170 
5180 
5190 
5200 
6000 
6005 
6010 
6015 
6020 
6025 
6030 
6035 
6040 


LET C=4 

GOTO 5000 

LET C=6 

GOTO 5000 

LET C=2 

GOTO 5000 

LET C=5 

GOTO 5000 

LET C=7 

GOTO 5000 

LET C=3 

GOTO 5000 

LET C=5 

LET G=(C+1)+(R-1) 

IF G>6 THEN GOTO 5030 
GOTO 5040 

LET G=G-7 

IF G=0 THEN GOTO 5060 
GOTO 5070 

LET G=7 

LET R=G 

LET C=D-(7*INT(D/7)) 
LET W=C+(R-1) 

IF W>7 THEN GOTO 5120 
GOTO 5130 

LET W=W-7 

PRINT D;M;Y; 

IF W=l THEN GOIO 6000 
IF W=2 THEN GOTO 6010 
IF W=3 THEN GOTO 6020 
IF W=4 THEN GOTO 6030 
IF W=5 THEN GOTO 6040 
IF W=6 THEN GOTO 6050 
IF W=7 THEN GOTO 6060 
PRINT"IS EEN ZONDAG. '' 
GOTO 6070 

PRINT"IS EEN MAANDAG. "' 
GOTO 6070 

PRINT"IS EEN DINSDAG. "' 
GOTO 6070 


PRINT''IS EEN WOENSDAG. '' 


GOTO 6070 


PRINT'"'IS EEN DONDERDAG. "" 
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GOTO 6070 
PRINT'"'IS EEN VRIJDAG." 
GOTO 6070 

PRINT"'IS EEN ZATERDAG." 
PRINT 
PRINI"'VOER DE VOLGENDE DATUM IN OF DRUK OP STOP" 
GOTO 1000 


PRINT 

PRINT" 
PRINT''* PT 
PRINT''* EEUWIGDURENDE KALENDER il 
PRINT''* zen 
PRINT" dokken 


PRINT 

PRINT'' (C) MORET/SCHERPENISSE" 
PRINT 

RETURN 
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DEMONSTRATIE- 
PROGRAMMA'S 


De laatste programma's in dit boek zijn eigenlijk geen 
spelen, maar meer een demonstratie van wat de MSX op 
grafisch gebied nog meer kan. Het eerste programma tovert 
een sterrenhemel met flikkerende sterren op het scherm en 
het tweede programma laat zien wat u allemaal kunt doen 
met instructies als LINE, CIRCLE, DRAW en PUT SPRITE. 


AERESED, UL 
vager, 


ENE: 
NE 
IN ANNM vn 
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STERRENHEMEL 


PRINT 
LOCATE 12,2:PRINT'"'NACHTELIJKE HEMEL" 

FOR X=5 TO 35 

LOCATE X,5,0 

PRINT CHR$(219) 

NEXT X 

FOR Y=5 TO 20 

LOCATE 5,Y:PRINT CHR$(219) :LOCATE 35,Y:PRINT 
CHR$ (219) :NEXT Y 

FOR X=5 TO 35 

LOCATE X, 20 

PRINT CHR$(219) 

NEXT X 

X=INT(RND(1)*1346) :IF X>19 GOTO 180 
Y=INT(RND(1)*28+6) :IF Y<7 OR Y>34 GOTO 190 
Z=X*404Y 

VPOKE 2,42 

Q=INT(RND(-TIME) #1 55) +100 
R=INT(RND(-TIME)*255) 

SOUND 7,62 

SOUND 1,0 

SOUND 0,0 

SOUND 8,8 

SOUND 13,9 

SOUND 12,R 

SOUND 11,0 

FOR V=1 TO 500:NEXT V 

FOR I=1 TO 4 

X=INT(RND(1)*1346):IF X>19 GOTO 330 
Y=INT(RND(1)*2746):IF Y<7 OR Y>34 GOTO 340 
Z=X*40+Y 

VPOKE Z,32 

NEXT I 

GOTO 180 
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111 


DEMO 


10 REM DEMOPROGRAMMA VOOR DE MSX 
20 KEY OFF:CLS 

30 COLOR 1,15:SCREEN 0 

40 LOCATE 0,10 

50 PRINT"U HEBT DE KEUZE UIT:" 
60 PRINT: PRINT''1-LINE'" 

70 PRINT''2-CIRCLE' 

80 PRINT''3-DRAW'" 

90 PRINT"'4-SPRITES'' 

100 INPUT A 

110 ON A GOTO 130,270,480,600 
120 END 

130 REM LINE %*kkkkkkk 

140 SCREEN 2 

150 FOR X=0 TO 14 

160 FOR A=0 TO 90 STEP 2 

170 LINE(A,A)-STEP(A,A) ,X,B 
180 NEXT A 

190 X=X+1 

200 FOR A=0 TO 90 STEP 2 

210 LINE(A,A)-STEP(A,A) ,X,B 
220 NEXT A 

230 NEXT X 

240 FOR Z=1 TO 1000:NEXT 
250 GOTO 30 

260 REM CIRCLE “eet 

270 COLOR 1,15 

280 SCREEN 2 

290 Z=1 

300 FOR N=0 TO 6.,28318 STEP …1 
310 Z=Z+1 

320 CIRCLE(128,96) ‚2, ,O‚N 

330 NEXT N 

340 A$=INKEY$:IF A$=""" THEN 340 
350 COLOR 1,15 

360 SCREEN 2 

370 FOR N=2 TO 1/260 STEP —…1 
380 CIRCLE(128,96),60,,,‚N 
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390 


420 
430 


640 
650 
660 


750 
760 
770 


780 
790 
800 


NEXT N 

A$=INKEYSsIF A=!" THEN 400 
COLOR 1,15 

SCREEN 2 

FOR N=1 TO 100 
CIRCLE(128, 96) ‚N, INT(RND( TIME) *15) 
NEXT N 

AS=INKEY$:IF A$=""" THEN 460 
GOTO 30 

REM DRAW Kkmataataastaad 

SCREEN 2 

A$="R50U50L50D50'" 
DRAW""BM100,150"' 
DRAW"SOXAS;"' 

BS=INKEY$: IF B$=""! THEN 530 
FOR I=1 TO 10 

DRAW ''S=1;XA$;" 

NEXT I 

B$=INKENS:IF B$=""' THEN 570 
GOTO 30 

REM SPRITE sekkkkek 

COLOR 1,15 

SCREEN 1 

FOR N=1 TO 8 

READ Z$ 

z$="&B"4Z$ 
Q5=O$+CHRI(VAL(Z$) } 

NEXT N 

SPRITE$ (1 )=Q$ 

DATA 10011001 

DATA 01011010 

DATA 00111100 

DATA 11100111 

DATA 11100111 

DATA 00111100 

DATA 01011010 

DATA 10011001 


IF RND(-TIME)<,5 THEN X=X-8 ELSE X=X48: IF X>240 THEN 


X=0:IF X<1 THEN X=240 
IF RND(-TIME)<,5 THEN Y=Y-8 ELSE Y=Y+ô: IF Y>175 TH 


EN 


Y=0:IF Y<1 THEN Y=175 

PUT SPRITE 1,(X,Y) 

AS=INKEY$:IF A$="!' THEN GOIO 760 
GOIO 30 
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Computer-spelen zijn en blijven leuk als ze voldoende 
afwisseling en kwaliteit hebben. 

In HET MSX COMPUTER-SPELEN BOEK 

vindt u beide elementen in ruime mate vertegenwoordigd. 
Er zijn originele, complete listings van arcadespelen, 
adventures, bord- en simulatiespelen. Er zijn spelen die 
veel en er zijn er die weinig eisen van de speler aan 

z’n toetsenbord. 


U hebt onder andere de keuze uit: 


e PAARDENSPRONG, een echte hersenbreker; 

e EPSILON VIII, dat u confronteert met interplanetaire 
gevechten; 

e BEURSPLEIN 5, dat u inwijdt in de geheimen van 
aandelen en koersen; k 

e BOMMENWERPER, waarin u vanuit de lucht strijd moet 
leveren; 

e GOLFBAAN, waarmee u briljante sportieve prestaties 
kunt leveren. 


Een veertigtal uitgekiende spelen nodigen u uit, 
tot spel en tegenspel! 
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